


Institutional Archive of the Naval Postgraduate School 





Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1998-06 


FNMOC model verification system. 


Pace, Kyongsuk P. 


Monterey, California. Naval Postgraduate School 


http://ndl.handle.net/10945/8416 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
_ (8 D U DLEY research materials and institutional publications created by the NPS community. 
«ist iL Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 


" \ KNOX appointed — and published -- scholarly author. 
| inp 
, LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http://www.nps.edu/library 


NPS ARCHIVE 
1998.06 


} 
“s tyne 
sot ogce any 
Pra? che 
Bros. ty ste 


oe 


1 e 
eh tet les 


wy 


» aire 
Rangtert eae mi 
“| i 
tye how 
’ Th wo 
eo ia Lae 
1 Met iF Reps 

regoreea 

‘o 


#! 


bin 


are 
Geet iee 

Wait 
' nit ) 


J 
7 
» 


Be Wel 
Cis oat RAN 

. Ce oe 
AS a 


ke Loe 


H it HSDyi ie ‘ i 
atdeqe O1ge Iv east 
3493 4g 9484 re on 
SAF tit: bh as: 
a. % Hel 2 ise . 
Ae yao 


‘4 
wah Yy tility 
“1 tisst BD 


ORNL arts 
Lbs we iy 
iE H nati sh 
a8 a i 
eek be Wty 
arg 


hs 
vi Sher 
ahh * 


oe 


rd 


ter, RT) ne Ap a, 
A aU i 1 
"S ant ara Ti i 
ete Faby SARI Dmg 
sett 
ve P Uda ey 4 
Yu’ Yell 
HA he i 
agalmised 
Kis gt ep e 
ott 


ny id 
Mgt ey 
ao Othe amgeetg hit 
ee tatyh st" a eyes 15} Pde 

ots. A ‘ liveors A sonched hd i) ite “Mi 
Spd teh fade Tt ted % 
ei dar diether 
vat Ba 


« t Lah 
" ree tN 
fr debvAar g. 14 ny + 
tl] tibet. 4.4 ih} 
whats sare tae ehyisetar 
Ven tee ay He AEN atee 
> thot, afhad SV pu ateg 


{pate D 
Par yah ie ee er 
© teeta de gute t, i 
ebrrhOd wg bel 
ass Phas, 
“ 
Me ey ie Wa Fee 


le evia ly 
val 


& Bee MHbq 
Lon 


ha meal re ie 
Nu aS ee ws} 


it 
Me aegneteat tele 
Tp 


37 “wis git 


mises 
l4p © 
mani 


si 
if!, Vals 


Yes bk a 


Vora t: 


Hatelade 


etaldectskeansl 

deahicy Boke he on 
tah aug 
clear e 


Cs 
ater 
ae Perri 
Cegiy 
: rene 
ste lahaty 
in Bois 


deh if 
at iisiath j.>. ait, 
One Yr | ites Hy ie 
{ VWiets a wine 
Pat tlh 


thy 

me be a 
sets estat get aie 
rg te Mol Ft Gs. Se IR ten 
Urine lawl yt i’, 
mae WhLoar els Col 
5,@ He oe 


Misa 
Me tay 


oxy 
{i 68. 
sty It 
Ly f Maal ieaaete . 
se itd ease daled 
' 


wis sk 


“4. aca tindohat 
" ies Dia, 1k é 
Senay rn PUT, Nat a 
Vint 6D gi des Weil. 


tai Bitsta 
al ( 
pes an 


mtd 
Wyach. HEE Sty Tred wes & 
AYU Metres ty 
o seein wat Bivste, 
pr alah! aay, 
A ee ty Mee av ae) R 
wy des pi v0), ast 
Soa Ady fle 19 ime tah 
13h, at Maul ta. ans 4 peeat tite ined tka, BELLY 
Ub GET NCTM SSO Mb imeS dd. Wai Mendis Ln am 
tad EU OST E Sar ces bat Qag, URIs yl VaA DNONT Ee De Fue, dgtinDay 
a - ferent tas SPAR are WipecO ly ro Vid MWe ys tts Votan a 
fhenthae belies bly tole seSGUdeags JUACIG soho Men ba rhe 
TIS Wekes eA, Wt 
tates Dod amt ag sank Loch gt cigue 
WiPe rte VO Myn eWay ee af da, Bids Bek, 
AM ee eee ee te 
PLease corn 
° 


ro tote 


ott. is 
a Th inte 


‘ au) Pete 
os 8, {5 hs 


oie 
yak, ileehenes 


Ged ASG Meera nde 


TAM ee 
te otshincs usage 


Pad 
ivy 
te byt “hte pal TRH oth log, 
phgre tStQho. Ds bale Late 2 
“hens bP 99 afl fh; 
wel. etl? shatade ot 
by fe' SoMa Dee deh de totteond tate & 
hate Tels 2deFS Ur Pr Ol eg ty & <r 
RE dogg 02) he Fipha aet ley 
Tere rar ues! \gpet whet 
V wated ra toute Ms cathaiis ca bal atid sa’ 9F ab cAeay eas 
wid sete Sta beet resi le Tain ta Ae be thes af 
18 rye Husdzes ohet hats a Lt a ds ae 6 ete 42) 
Wheseted ee erry Kx! pot marys *enp' 
bus maine Saretetit § alas; 


a0. 
owt. ve 
! 
lin? ify 1 
Ripe 
eeolllatebal. uae 
wheat he « fete 


ar Metst 
a tahstye ais 


Tbh 
tp Gem 
a%. 


Wh TED erty te Loh, Dey FP Nm Taal Ot 
ep owls iar 


Edy 4 
eal. Le a RAP eer ‘ 


“bias 
(st 


a te Os ee 


at 
Vhste betsy Wigteatgt rat Heda 


Toye bet. Soh gw WEST 

Ip @.0 (eta, atte astst ot Vebss 

ie 3%, ai Og tyr at sdqit 

98 gals ¢ Metphal iWon a® Stately 
sd Nitin O54 ah Ui dsousate 
¥e! elise Ae eth u 

ahi eat el, fhiqle 4 

rh bpd dette 


sng ahead whe be 


stream aul 
1a shen 
yell 


Ma beet Nina! tose 


ate fa® Avegs 
of ee Petite See be 


yg fe Rar 
‘. Nee mans of 
a 


* 


Pork 


‘ 
sts yi ay 


= WUE 


SA Soty ston O04 
MEHR be ty iyi att thy sara Ais. 


18 Tedhouy lush hens Ve Sanam) gute eh 


a de vaetase ite 
ea oe hy PMMA Ey 
Heike ga : ee | 
Ata Sochec es, 
© ageeagt a 
or9tbot op cna, 
Vvwgigtsdgs oe E 
eehnce dtepannt 


ae 
am Ohi 


ard’ l.d 
se “ e 
s¢,° 


igt,ege,t'd & 


<% Tera y 


1 i 
€ BS atl te Fe 
stebatetesat ad “ode le bat te 
MU tet, VAT 84 Utes 
ee Pee ek Oe he Ce ee Tt 
% 999 te byl ety Nit evatdd grat 
ab arg 
rhepe 
aettn 


1 Iaset, 
ny 


Tea! 4 ‘5% 
Melia Chpate 4s ' 
Wrtard tay & pts* 


at 


“a 


PEEL Ut Pt ay 
Sl as thane 
t. 8 


artaldle WsVele 
wb. ih Betet 


da ghore FeO.tgt ud 

y BAvealgnr! cath ea tase 
eV etena aca mar | 
#05 Gale 


a at SP oLedeDT® 65) geared 40%, 
at PEbad Fo Wear) Alo, Lars athy Sihaa , 
fe ~ tava * ed 2,8 ‘ Th. cer ter 
mins 


C3 soni rey 


U,% ta 8as, Mt 
Pr ide Sor bg Mate wha tater slaty 
Nye eb eae Meled se 
grgeob chet? Waa NiM 2 
"pant \ede! Aosaie, 
ped beth 


tubo ATT ged st, 
par anease Rees 


Cee eer oe rir 
Nana SHARES cdedcasmenean 
aaa cha ryret 


Me dee 
Ne derqnt 


See Peer Fi pelo 
| Rede WAaliod by 
ri Av'nao gts, 
lebanghyibe 


Oe heh yl a tay 
Pre td pe Om af 
Ca « 
Stier tee RET 
eG eg emake 
Sa Cee 
Sa deh, PMT eR, 
Lara ke pe Peet ac heg| ihe 
fathe be BORK Sy =z © 
tah 
eee otasgeet ae ok tate x “ally 
we 2° The 


: 
Clan nasie Lani piked: 


on Rin 
pe Retake 
oh orl ets he te ti a oH 


Van Gaye Oa 
oh a, %, Ve Sama ta! abrtal Me 
Le Pee ee CELE VE 
a4 mes he Pong ahede us 
ih a” & tersd, Ar vatss uate 
hat Aisi 


Pari) fs Neate ‘ie 
Med da eeFas Ve 
: &, 


Wd leh Se 
bi Lyte fete 


aiitet te 
aL ece Vat 


_ bts 


ace ‘at nba 
Pane aay soe. 6. eR Te 
J be tg de 
4% 1404, 
Poeun 


. aAyyr 
ee ¥e sdgt 
@eue preree ; ‘ M 

Oe 

1 #5 % 


wu Na Be; 
eab as 4 
re, os poet, rete if A 
r% ty tell FE 
Tor qire 
110. 4 aut 
wf 


ve &, 2 
M Ne 449 9 


f 
Joe x 


abl tga’ 


Sa Sein 
= at, ne 


Tete tote When Fe St c 
$ pic Me Py tae Be LTS 


¢ 
ghee 
Su 


ve 
VTi! 

hile sinks 

ERR of ARK 
ahs Palert' . 
oO Mates L 


ve 
inna 
eh an 


“e,? 
tf 
“37% 
SPA. 


= . 


iw Pe 


ok 2 pt 
ee hits 


ae 
2 Ate ee 
& Béy Bh 

ace 


te 
en 


‘2 
ry 
} orn 
yt gem igs 
tas f Piet ie 
as 5 ee i Ts = - > i 
Sey 8 aFe8 zs 1 a e t . ee" * : BS 


at 
e 


tbe tg cars 
=) freer gute “2: jose ep Lg 
“4 ey , 
olgep Fy gtye, (geetiteie® “eu 
ae eee 


Lan 
Te 


vy te" 


O48 Fo 08 90g 
4° eX 3-450 
beers es on Rut 
Raceaegs aa 
; sa 08 E 
Pongigmese + sasgs, 
748 g® Afr eye 40 1 


“¢* Sesee: 
samy tgtie, 


ae *, “29984 °@% pee sh 


hee oy” 
Mal Ate 


3 “y 
Cie hho side bd oe 
m= aa° 
* sue se © 
digey= 
pt hh datitstiet ze 
t*yto> att dah oe Le) err ry ey: 
fyb ques 06 BO TOSCO Nag ot 51 
1? 9 FeO re Geese 2% ad de Laat dae 
Fg O gg Ar an m aa 
(og al rah y® om yee 


tatty? pMeayrt 
J vf ‘< ots 


stag "Kye he 3") yee 


£04 RBERP RT ye) oF 
Fi seer 


oy 46s 
 tibpatsn fel | 
Vite sty reyes gi eta’ gha-te 739 
Map ¢ der orate a yell 3% ch 


tpraaze 


¢% ea 


: Pamirs % 
édd at “ae y eed bell oak ial 
PT atte od oP hie 

ors arta 


ederd"¢ 
21007 oa be hed. toad 


ent? 
9 ate 2 ute 
eat Figt yg on 18 
¥ ete : : , id 4 
ae 7) & Fv. a ¥ AQ 19 te Oa" orp g 
ori an #72 * pw PEM ® 
% ea ee i ha 
cr hale Lory Mott wear 


3 sigh: 


eee s 144 oH 
oY hege 
hope ht a he aed se nt 
Gnd Fp ealommrye of 
of pt enctpeges* atl 
* Hj%u” 44 3°h a, 


ay 


be Sebymaenee b a6 
matte tk Linley oe roses ey aonb 
CF a satel aa} ROP? 7 PuFh © PVD? E°8 &, 
OP Oy Fp oh 08 MUTE f POD MET oO HN EHD 
1a 99.4% teh 9 MINOR Est tg i 
tyrae org i i A TTS 
bad ih betes oa eres 


ee getl y sey gg 

eee Ln bn do 

Oe esreere 
. 


"39 A ‘48 saeaivn { i olaea 
te gums 4 Phe ie te dieg 

ed eae vepeptgerneeyt 74° 
: ri Pe “y-Dea% Cy ALD TNS = tyr "2 Pe 
"2 ted Sean 

“1 Pp Bit etuegn 
ed ee ee Seel'tece a ay te Fs ty" mere et 
eel eklegl seed o2grn “st09% 4 Pi Ba 

a4 


ee ate y5° » 
e*uee yess te . ¥ " , ay tesh 
sree pe iner sepeyeets O°9W 42h © 27844: : 
“bott poe he al hae y sg yeatgns gemte respi prha ea cates ye 
¥ ate ot EH Ug 2 een gery ets 5 aly 2 ath Li 

ereretita og TA Ces “ats ty penta, 

a ee dR he ke be a be Ete a3 

catty re he th, me 28 


4 
sah? AF py? 


‘ 
t wae s09Pases tq 


es 
* oe oe 
fetou'tn bt Poe 
men b gtedaev's 2 
vere J, 0 © ate? *% 
s 4 edt ry 
i+ ea te 


¢ 


S9i rae 


” 
tee oo lig 
he Ys wal ' 
aluweay 57 vi s 


sips fe © Wie tern gy 


seas ie™ Torey ¢ 


soe) bs 
ive ney ene yore 
fe dtat bl fe Uy tates be FE vy 
yearg Ing ide AR Me 
nya 


er 


seyret 'e' z 
oe. gle des, Hin, i oy 1 
ili tee At Bet Be dd EO Pe Ba Ta 
CU bd in Be a oe Ra ate AL, Oh de ee Md 2 a 
“ey alig a tte ola £809 oy Weegee tal S per dias * 
1 hd by bh de de Dd aS 


ih Pee) SOI TP yh Oy rhe, acre 
ay, “hee peo a°oe *¢" ake 


a pew 

“ssp bool aye ataly 

Lets git. Ares a Pa 
ee fata REQE 


hee m LA ht te ed 
wal 
gr te 
fry en 
‘ 2 teat wet 
eeoPeaws 
4 we os ‘ager 
yrote i he 
7190" a% 74 GG 
Sie CU de sation oe 


@”) 


mans "14 


7 
y oeel 


a] 
2") 2 BRD vat 
ibe ne 


oa 
d vt 
auty 
a 
Ce ee 


qtadrr etaed 
i 
Ss oe i-? de? 
Peeve re TTS 
as Utale oe 
"Ooo 


ann ok mnt 
zaen y 


ih hn ia seine “909 ube P 
bay e 465 Site ete * Boe 
o's te » ‘ ’ 
18 AOS OT* 


ae® 
wag dances 
a 


syn’, 


“+9 
eee “Ath aay Lada te dad, BE 


a? 
o slit BULLE at 
1 vege Ore 


ahs V7 Ta te 
eth gl ae CaF 


ood F opt oe teh ob 
#3,%10 EE 18 88 OF 
s eevee 


gla ech Bree 
EW ADee 6 
4 


pe 
fi AS Ace tava ger yer eat 


it a ate 
+" 7 ’ Vi] 
Me pentane 1h dopey e@ oe ibs 
oat eit" he fe gt: & pea} fe" aes 4 
Ute? et aSetate grbeesiy an % 
2, ‘ny rm Oe, a 9 3° of” tate Catena’? to 
pipet res an ce yh ty pelt 
toly ok, fey ieee leas 
5% ’ wretben 3p *aqere § 
ah Ye’ ual yiat eo he ¥ ee 3 me 
Bed atl of gt Or Ty Ub hee eo! oe Phan yet tse 
” eater ER eA Bu geitety ges 
‘} cen gens ae “a “ag ey he ee | 
10 weit VG 
otetye? pteil a 
SE ova! 
ete 
heli “qty 
UN Sys 
ily ame tyee 
god & * 


A oath tet 
aie o is Ae 


fe. 
tite ae se avolees 


«= 


von | 
v die mae 
; Ww 


wih sae 688 WA 4? ine Ad ae 
that tate sit" ares 

UP oe Fgh +The 

eed ¢ 

atett PEL Hed te 


rn eee 
alte CaM, 


oobi ait eli 


sph osmtinse q 
et 


1e¢ fie |: a7 aceie pe Pe a% Fak PUG te 


* 4504 

9" hth 1 
ne athe les te te %, 
sh peeh ore Geom Z00 8 sie 
i 62958 gogeg gt ee 
” Pr he | ae “ §r9% 
“1% ihm, Sore 

borg g's 
Ap OM wegcres 


if 


° shies i] 
vetereloreium 


ie 4 
an Mey 
pik, fist 
it 
igi Wegk i 
? eta? “3°P 
In ek panto? “t 
. BLY 
wet nts: rs satatee Ny ee 
<a -Ulb*n A athe 
Yo2acd ¥ A a 
%. 
PW it 


orgs 
ihaeeey te 4 


*P of Sta as 


Ye ry 


ri 
4 tvs oe a“ ee pees 


aes 
3 


etm writ! Pa 


"9 

ae ep Ghosh 
Tie eat 
yi Bele” 
on i wt 


i T “$ 
ces ements 
antes 


= ul 





pets: 4°47 eth a" 
raphe} 928 Ty 


ahs ‘acm neers Ty 


eatery! 
en ty) 


my ty Pt 
19 ie icy ak 
wrpened ities ~ 
tine Bath ae Pye: ays 4 
Ch tiki oie teen coraremi so 


poate 


Bae 
peat ey aliten 
Me by tae a ot 
on a hie. 

sd Pani 28 -e°ntyn 
Sree tana 


pees 


fie 
isco sien 


aan Fp Se 

ania fh Seyen fia 
FiZe: cama TsO. 
Faene se 


DUDLEY KNOX LIBRARY 
NAVAL POSTGRADUATE SCHOOL 
MONTEREY CA 93943-5101 














NAVAL POSTGRADUATE SCHOOL 
Monterey, California 





THESIS 


FNMOC 
MODEL VERIFICATION SYSTEM 


by 
Kyongsuk P. Pace 
June 1998 
Thesis Advisor: Tim Shimeall 


Approved for public release; distribution is unlimited. 








Public reporting burden for this collection of information is estmated to average 1 hour per response, including the ume for reviewing instruction, searching existing data 
sources, gathering and maintaining the data needed, and completing and reviewing the collection of information. Send comments regarding this burden estimate or any other [f 
aspect of this collection of infurmation, including suggestions for reducing this burden, ty Washingion Headquarters Services, Directorate for bormatiuon Operations aiid 
| Reports, 1215 Jefferson Davis Highway, Suite 1204, Arlington, VA 22202-4302, and to the Office of Management and Budget, Paperwork Reduction Project (0704-0188) 
Washington DC 20503. 


1. AGENCY USE ONLY (Leave blank) |2. REPORT DATE 3. REPORT TYPE AND DATES COVERED 
June 1998 Master’s Thesis 
TITLE AND SUBTITLE 5. FUNDING NUMBERS 
eg MODEL VERIFICATION SYSTEM 


Ig | AUTHOR(S)KyongsukP,Pae = ti‘sSCSC‘*d ongsuk P. Pace 


7. PERFORMING ORGANIZATION NAME(S) AND ADDRESS(ES) 8. PERFORMING 
Naval Postgraduate School ORGANIZATION 
Monterey CA 93943-5000 REPORT NUMBER 


9. SPONSORING/MONITORING AGENCY NAME(S) AND ADDRESS(ES) 10. SPONSORING/MONITORING 
AGENCY REPORT NUMBER 


11. SUPPLEMENTARY NOTES The views expressed in this thesis are those of the author and do not reflect the 
official policy or position of the Department of Defense or the U.S. Government. 


12a. DISTRIBUTION/AVAILABILITY STATEMENT 12b. DISTRIBUTION CODE 
Approved for public release; distribution is unlimited. 


13. ABSTRACT (maximum 200 wards) 

Fleet Numerical Meteorology and Oceanography Center (FNMOC) forecasts the atmospheric environment and weather using 
several meteorological and oceanographic models. These models’ forecasting abilities are verified by comparing the model forecast 
against the observational data and model’s analysis. Currently, some models are verified by several inconsistent, maintenance- 
intense, non-standardized, and hard-to-use model verification systems designed for a particular model. Some models are not verified 
because there 1s no model verification system. 

This thesis demonstrates the concept of a single model verification system for all FNMOC models to eliminate the | 
inconsistencies and redundancies. The single mode] verification system standardizes the model verifications and provides the ability | 
to verify those models which are currently unverified. The prototype used a GUI and web browsers to display the model verification 

| statistics. The prototype demonstrates that convenient access to the model verification statistics could aid FNMOC users in evaluating 
the forecast models’ performance. | 
| This thesis identifies and documents the user specified verification requirements for several models and implements the most 


REPORT DOCUMENTATION PAGE | rem somos mois | 












immediate requirements. A complete quantitative model verification system for all FNMOC models will be umplemented 
incrementally, as all the requirements are identified. 


14. SUBJECT TERMS 15. NUMBER OF 
mode] verification, software engineering, prototype PAGES 206 


16. PRICE CODE 
17. SECURITY CLASSIFICA- | 18. SECURITY CLASSIFI- 19. SECURITY CLASSIFICA- } 20. LIMITATION OF 
TION OF REPORT CATION OF THIS PAGE TION OF ABSTRACT ABSTRACT 
Unclassified Unclassified Unclassified UL 


NSN 7540-01-280-5500 Standard Form 298 (Rev. 2-89) 
Prescribed by ANSI Std. 239-18 298-102 











Approved for public release; distribution is unlimited. 


FNMOC 
MODEL VERIFICATION SYSTEM 


Kyongsuk P. Pace 
B.S., Columbus College, 1985 


Submitted 1n partial fulfillment 
of the requirements for the degree of 


MASTER OF SCIENCE IN COMPUTER SCIENCE 
from the 


NAVAL POSTGRADUATE SCHOOL 
June 1998 








DUDLEY KNOX LIBRARY 


NAVAL POSTGRADUATE SCH 
MONTEREY CA 93943-5101 si 


ABSTRACT 
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atmospheric environment and weather using several meteorological and oceanographic 
models. These models’ forecasting abilities are verified by comparing the model forecast 
against the observational data and model’s analysis. Currently, some models are verified by 
several inconsistent, maintenance-intense, non-standardized, and hard-to-use model 
verification systems designed for a particular model. Some models are not verified because 
there is no model verification system. 

This thesis demonstrates the concept of a single model verification system for all 
FNMOC models to eliminate the inconsistencies and redundancies. The single model 
verification system standardizes the model verifications and provides the ability to verify those 
models which are currently unverified. The prototype used a GUI and web browsers to 
display the model verification statistics. The prototype demonstrates that convenient access 
to the model verification statistics could aid FNMOC users in evaluating the forecast models’ 
performance. 

This thesis identifies and documents the user specified verification requirements for 
several models and implements the most immediate requirements. A complete quantitative 
model verification system for all FNMOC models will be implemented incrementally, as all 
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I. INTRODUCTION 


Fleet Numerical Meteorology and Oceanography Center (FNMOC) is a U.S. Navy 
organization responsible for preparing and disseminating a wide variety of weather and other 
environmental forecasts. These forecasts support a large and diverse group of civil and 
military users who are located throughout the world. These forecasts are generated by 
meteorological and oceanographic models maintained by FNMOC. The accuracy and 
timeliness of the model forecasts are critical because the model forecasts support operational 
missions. As part of the quality control process, the model forecasts are periodically verified. 
While the verification process and frequency vary by model, generally it is an ongoing 
process. The model verification process is currently accomplished by diverse processes. 
Generally, all verification systems calculate a variety of summary statistics. These summary 
Statistics are then examined to identify strengths and weaknesses. The models are then 
modified to improve their forecast performance. These summary statistics are also included 
in the weekly, monthly, quarterly and annual model performance reports. These reports are 
read by many meteorological and oceanographic organizations. 

This research attempts to provide an enhanced model verification system that 
streamlines and standardizes the model verification processes in FNMOC. An enhanced 
model verification system that can be used to verify all FNMOC models would streamline the 
model verification process. Additionally, a verification system which is easily modifiable to 
meet new requirements would provide enhanced capability. Furthermore, a system that is 


easily accessable to the model developers and managements would reduce difficulties in 


rapidly assessing verification data. 

First, FNMOC needs a common verification system to verify all the model forecasts. 
Ideally this verification system should enable the users to make comparisons between several 
different combinations of verification parameters by controlling the independent variables. 
In other words, a verification system should provide the equivalent comparison statistics for 
the variable of interest. The comparison might be between models for the same geometry, 
between the atmospheric levels, between the forecasting period, etc. For example, if a user 
wants to compare one model’s performance with another model’s performance, the 
verification system should provide the equivalent comparison statistics for the different 
models in the same geometry, same atmospheric level, same forecast periods, etc., thus 
controlling these commonalities and providing only the true comparison statistics of the 
model performances. 

Second, FNMOC needs a flexible verification system that can accommodate 
requirement changes. These changes could be an addition of a new model, change in the 
geometry where the models forecast, addition of new environmental parameters, etc. The 
requirement changes need to be incorporated immediately. Additionally, these changes 
should not require extensive modifications to the applications source code when each change 
is required. 

Third, FNMOC needs an easy-to-use tool to access the verification statistics. It 
should be easy for the model developers and managers to use to generate the needed 


information in graphical format. 


A. CURRENT MODEL VERIFICATION AT FNMOC 


Currently, there 1s no single verification system for FNMOC model developers to use 
to access and easily analyze the models’ performance. There are several model verification 
systems for different models developed by individual model developers and model verification 
personnel without adhering to any standards. For example, FNMOC’s global meteorological 
model, Navy Operational Global Atmospheric Prediction System 

(NOGAPS), is verified by two verification systems, nogstat and verobs. Nogstat 
verifies NOGAPS forecast against its analysis and verobs verifies against the observational 
data. FNMOC’s regional meteorological models, Navy Operational Regional 
Atmospheric Prediction System (NORAPS ) and Coupled 
Ocean/Atmosphere Mesoscale Prediction System (COAMPS), are verified 
against the observational databy verobs. Verobs compares NOGAPS and NORAPS in 
the NORAPS regions - Asia, Continental US (Conus), Europe and Indian Ocean. Verobs 
also provides NORAPS and COAMPS comparisons; however, their geometries do not match 
exactly. The different geometries add undesirable variability in the model comparison. 
Another example is FNMOC’s global wave model, WAM_GLOBAL. It is verified by a 
verification scheme developed by the model developer. There is no known documentation and 
the developer is the only person who has any knowledge about the scheme. There are other 
systems that can only handle a single model or are very difficult to modify. Additionally, there 


are redundancies in the model verification efforts among many of the individual verification 


systems. Finally, some models do not have a verification system at all. 

This lack of standardization also limits FNMOC’s ability to rapidly respond to user’s 
new requirements. As an operational center responding to a variety of operational users 
ranging from the Navy, Air Force and other civil and government organizations, FNMOC 
frequently receives requests to provide modifications to models. The ability to respond is 
limited by the fact that the data to compute the model verification statistics are in various 
formats at various locations. Some data are located in FNMOC's relational database, 
Integrated Stored Information System (ISIS) onthe Cray and the Sun 
server. The model forecast data (grid data) and the model analysis are stored in the ISIS 
grid database. The observational data are stored in the ISIS latitude/longitude/time (LLT) 
database in a format different from the grid data. Some data are stored in a private directory 
as text files. All of these different data require different reading schemes. The model 
verification statistics are computed in many different ways since there is no single library to 
compute the statistics. The model statistics files are in different formats - some in text files, 
some in the Fortran formatted files, and in different locations - some on the Cray in the 
operational directory, some in private directories, some on a Sun system. 

Finally, the accessibility to and the display of the data in the current systems do not 
provide the flexibility needed. Accessibility to the verification statistics is very limited in the 
current verification systems. Only users who have in-depth knowledge about the verification 
system can access the model verification data. The display of the model verification data is 
in numerous formats, styles and conventions. Notably, graphical displays with similar 


purpose are prepared using multiple graphical software packages. This results in a wide 


variety of styles and methods used to display similar model statistics. Clearly, there is a 
strong need for one universal model verification system to verify any FNMOC models and 


standardize the model verification process. 


B. FNMOC MODEL VERIFICATION SYSTEM 


The FNMOC Model Verification System is a single, easy-to-modify and easy-to-use 
model verification system for all FNMOC meteorological and oceanographic models. It was 
developed by modifying the current FNMOC operating verification systems verobs and 
nogstat. The new model verification system standardizes the model verification in 
FNMOC. It also makes the data and information widely available by leveraging web 
technology. It currently resides on FNMOC’s intranet, but could be placed on FNMOC’s 


internet server to meet the external user’s requirements. 


c; RESEARCH QUESTIONS 


FNMOC model developers need a single, easily modified and easy-to-use model 
verification system that would standardize the model verification. This research attempted to 
address these needs through the following questions. 

Is it feasible to develop a prototype system that demonstrates the concept of one 
universal model verification system to verify all FNMOC models? Will this system assist in 


eliminating redundancies and inconsistencies caused by the present system that uses multiple 


model verification methods? Is it feasible to implement a common system for those models 
that currently do not have a model verification system? Can this standardization of the model 
verification create a reusable statistics library and consolidate all model statistics in one 
database in a standardized data format? Can this model standardization be created using 
graphics with the same format, style and conventions? 

Second, can a universal system provide the flexibility needed to rapidly and efficiently 
modify the model verification system for all FNMOC models? Will this flexibility meet 
requirements of FNMOC customers? 

Third, can a web-based technology provide the access, and ease of use needed to meet 


the customer and FNMOC personnel needs? 


D. THE OVERVIEW OF THESIS 


Chapter I of this thesis provides an introduction and problem statement, Chapter I 
describes the Model Verification System including the background, Chapter III provides the 
user requirements, Chapter IV provides the design, Chapter V provides the evaluation and 
Chapter VI provides the recommendations for future research. Appendix A provides the 
values of the SMS environment vanables and namelist values for each model using the system. 
Appendix B provides the source code. Appendix C provides the prototype testing data. 

The figures in this thesis use Yourdon’s [Ref. 1] graphical modeling notation. A 
process is represented by a rectangular box. A process that is further decomposed is 


represented by a shaded rectangular box. An input or output flow is represented by an arrow. 


An external entity is represented by a box with a folded upper left hand corner. A decision 
point is represented by a diamond. A data store is represented by a drum. A library module 
is represented as a rectangular box with double side bars. 

The courier font is used to indicate programs and systems external to the model 
verification system such as ISIS and HTML. The italic is used to indicate the parts of the 


model verification system such as the graphics component. 








HW. FNMOC MODEL VERIFICATION SYSTEM 


The FNMOC Model Verification System is a single model verification system for all 
FNMOC meteorological and oceanographic models. It replaces the currently existing model 
verification systems that are redundant, hard to modify and maintenance intensive. It provides 
an easy-to-use model verification system for the models that do not currently have a 
verification system. It standardizes the model statistics computations by creating a reusable 
statistics library. It standardizes the format and storage of the model statistics by 
consolidating the model statistics in one location using one database management system. It 
also standardizes the display of the model statistics by using the graphics library routines 
created with FNMOC’s graphics software. This system provides FNMOC model developers 
a easy-to-use tool to aid them in their analysis of model performance. 

It uses web technology to enable the users to make their requests via web browsers 
and receive the resulting graphics as shown in Figure 1. Implementing the GUI via a web 
browser eliminates the requirement that the client system have all the necessary software 


locally, 1.e., all the processing is done on the server. 


Context Level Diagram 


user request 


Model 
Verification 
System 





Figure 1. Context Level Diagram 


The model verification system has several components. The operational run (ops run) 
component computes the model statistics twice a day after each model run is completed. The 
statistics computation library (statistics library) component is a reusable library that performs 
the statistics computation for this system as well as other systems (programs) at FNMOC. 
The database for the model statistics (statistics database) component is the single data 
storage for all the model statistics. The graphics component creates the graphs of the model 
statistics. The user interface component receives the user requests, processes them, then 
returns the resulting graphs back to the user via a web browser. The following sections 
describe these components in broad, general terms. More specific descriptions of these 


components are in Chapter IV. 


A. OPERATIONAL RUN 


FNMOC runs the prediction models twice a day. The model verification statistics are 
calculated after each operational run of the models. This component has four major parts. 
First, after the prediction model has successfully completed, the FNMOC operations staff uses 
the Scheduler Monitor Supervisor (SMS) system to invoke a Korn shell job 
script, mverif.job. This operational job script (mverifjob) is run on the same FNMOC Cray 
computer as the model forecasts, model analysis and the observational data. The mverif_job 
also executes the second and third parts of the operational run components, verobs and 
veranal, Additionally, it writes a set of text files that contain the calculated statistics to the 


appropriate directory and computer. Second, a group of Fortran programs, verobs, verifies 
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the model forecasts against the observational data. Third, a group of Fortran programs, 
veranal, verifies the model forecasts against the model analysis. The model analysis is the 
initial conditions over a set of grid points covering the forecast region. Fourth, a Korn shell 


script, statupd.ksh, adds the computed model statistics to the model statistics database. 


B. STATISTICS LIBRARY 


The statistics library has a collection of reusable general purpose statistics programs. 
These programs are a group of Fortran programs that compute the required statistics for 
model verification. These include commonly used verification statistics such as mean error 
(bias), standard deviation of the error (stdev), and root mean squared error (rms). All the 
programs compute the statistics on the difference between the verifying and predicted sets of 
data. There is also a program to compute the map factors for different earth projections used 
by FNMOC. 

The current FNMOC routines for computing statistics were modified and adapted in 
this component. The inventory of the existing statistics computation routines was obtained 
from the FNMOC Unix Utility Library and the applications under FNMOC configuration 
management (CM). Table 1 shows the existing Fortran subroutines and the statistics 


computed by each of them. 
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Table 1. Inventory of FNMOC statistics routines 


Statistics computed 


a 
(oor og ee 


nrvelrms.f mean wind u component, mean wind v component, mean wind speed, rms 
wind speed 
stats.f mean bias, rms, std, threat score, probability of detection (pd), false 
alarm, skill score 
| velrms.f mean wind u component, mean wind v component, mean wind speed, rms 
| wind speed for 10 NOGAPS areas __ 


* The statistics computed do not take any projection into account. All the other subroutines 
compute the statistics for the spherical projection. 







——V 






These routines are redundant, not in a particularly reusable form, and application 
specific rather than general purpose. For example, the routines ancor.f, htrms.f and 
velrms.f are specific to nogstat. The routines nrancor.f, nrhtrms.f and 
nrvelrms.f are specific to norstat (a no longer active modification of nogstat). 
The routine stats. f is specific to verobs. The routines differs.f and differp.f 
are part of yet another application Ocean Model Support Program (OMSP). This 


component makes them more reusable and general purpose. 


OF STATISTICS DATABASE 


This component is the data storage for the model verification statistics. It uses 


Wy 


FNMOC’s relational database system, Empress. There is a table for each model and a 
generic table structure used to create the table structures for each model’s table. This 
database resides on the database workstation. This component allows easy data access and 
consolidates all the model statistics in a single location. It will have one year’s data on line 
and archive the older data off line. This is to accommodate the model developers’ 
requirements to frequently use the historical data for weekly, monthly, quarterly, seasonal and 


annual analyses and reports. 


D. GRAPHICS 


This component creates the graphs of the model statistics based upon the user’s 
requests. The programs are written with one of FNMOC’s graphics software packages, 
Interactive Data Language (IDL). These programs read the model statistics 
from a text file. The model statistics are retrieved from the database, formatted and written 
to a text file for IDL programs. The IDL program creates a GIF file to display ina Hyper 


Text Markup Language (HTML) page back to the user. 


E. USER INTERFACE 


This component is the gateway to the model verification system via a web browser. 
It gives the users the ability to compose their requests for the model verification statistics they 


want via HTML forms. When the users access the system they are presented with a variety 
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of on-screen choices. These include a list of models, forecast periods (tau), atmospheric 
pressure levels, parameters (air temp, wind speed, etc.), statistics, and verification sources. 
Additionally, they can select the observation types and types of graphs and can also specify 
the time period they want graphically presented. After they make the various selections and 
request the information, their request is processed and the information is returned to their 
screen. Their request is processed dynamically, using a perl script. This is important since 
it eliminates the need to have any pre-created static GIF files. This is an important capability 
since static files are less flexible, use greater storage space, and require a great deal of 
maintenance to keep them current. The perl] script parses the user requests, executes the 
script to query the statistics database and retrieve the data, executes the graphics programs 


and returns the graphs to the user via a web browser. 


F. MEETING THE REQUIREMENTS 


Each of the FNMOC Model Verification System components demonstrates the ability 
to eliminate shortfalls in the current system as well as providing additional enhancements. 
First, the operational run component computes the statistics twice daily for continuous 
accumulation of model statistics. It is designed for flexible modification whenever a 
requirement change occurs via SMS variables and the namelist functionality in Fortran 90. 
Additionally, the statistics database standardizes the data format, data storage, data access 
and data location by having all the model statistics in a single database. Also, the statistics 


library standardizes the statistics computation for all the map projections. The text file format 
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for the intermediate files for the data insertion into the statistics database standardizes how 
the intermediate files need to be written. This is beneficial in the event these files need to be 
read directly or if the model statistics from some other systems need to be added into the 
Statistics database. The graphics component creates the standardized graphs of the model 
statistics. The user interface component provides the users an easy-to-use model verification 
system for all FNMOC models. No special training is required to use the model verification 
system if users know how to use a web browser. It 1s a single point and common way to 
access the model statistics without any knowledge about the system. All these components 
help to standardize the various aspects of the model verification in FNMOC. 

The FNMOC Model Verification System Prototype demonstrates the concept of a 
single, universal model verification system for all FNMOC models. It provides a vehicle for 
a better understanding of the environment and requirements problem being addressed. It 
demonstrates what is actually feasible with the existing technology, and where the technical 
weak spots still exist at FNMOC. Additionally, it 1s an effective way to ensure the 
requirements accurately reflect the user’s real needs. The prototype demonstrates to the users 
what is functionally feasible and provides an analysis test bed and vehicle to validate and 


evolve the system requirements. [Ref. 17] 
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Il. REQUIREMENTS 


A. GENERAL REQUIREMENTS 


Generally, the model forecasts are verified against the observed meteorological values 
or the initial conditions over a set of grid points covering the forecast region called the 
model’s analysis. “V. Byjerknes in 1904 recognized that forecasting is fundamentally an 
initial-value problem in mathematical physics and, moreover, that the basic system of 
equations to be solved was already known, at least in general form.” [Ref. 10] This research 
addresses a part of the general requirements, verification against the observational values, but 


future efforts could expand to address the entire general requirements 1n the future. 


B. FNMOC USER REQUIREMENTS 


FNMOC user requirements were obtained through a user survey, review of the current 
model performance summary reports [Ref. 13], and a meeting with the model team leaders 
and model verification personnel. The initial user requirements indicated that the models need 
to be verified against the model’s analysis and/or observational data which matches with the 
general requirements. The verification against the observational data appears to be more 
widely and frequently used at FNMOC. Therefore, this research concentrated on the 
verification against observational data initially and will add the verification against the model’s 


analysis in the future. Table 2 below shows the results of the user requirements analysis for 


17 


each model. The requirements analysis also showed that bias, standard deviation (stdev) and 
root mean square (rms) are used more frequently than any other statistical measures. Users 
indicated that the various model statistics should be stored on-line and immediately accessible 
for up to one year and off-line for longer period. The users indicated the most widely used 


graphics to display these statistics are scatter plots, time-series plots and height-series plots. 
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C. ASSUMPTIONS 


Several assumptions were made during this research to focus on meeting the most 
urgent requirements. First, this research concentrates only on verifying the model forecast 
against the observational data since more users indicated they would like to verify against the 
actual data. The assumption here is that the results and methodology can be generalized to 
the verification versus the model analysis as well. Second, the system is purposely designed 
to be as independent from FNMOC’s relational database management system (RDBMS) 
Empress as possible by using the text files between the DBMS and the system in the event 
the DBMS is changed to some other RDBMS. The assumptions is that these text files can 
be interfaced with any RDBMS. Third, WAM GLOBAL is used as the representative ocean 
model in the initial system rather than all the ocean models. Other ocean models as well as 
the meteorological models will be added later. This assumes that the results and methodology 
can be generalized to other models as well. Fourth, the system only calculates the bias, stdev 
and rms initially and will add the other statistics later. The asumption is that other statisics 
can be added. 

The system will evolve and mature as the users’ inputs from the user prototype 
evaluations are evaluated. More general verifications will be implemented as the full system 
is implemented to meet all the requirements identified during the requirements analysis, 
namely, the verification against the model analysis, the addition of other oceanographic and 
meteorological models, the addition of statistics (anomaly correlation, probability of 


detection, threat scores, etc.), consideration of the map factors in the verification against the 


eZ 


model analysis and addition of other graphics for different combinations. 


D. LIMITATIONS OF RESEARCH 


This research demonstrates the concept of a universal model verification system for 
all FNMOC models by use of a prototype system. This prototype is implemented to meet the 
minimum requirements, but provides the capability to expand to meet the additional 
requirements as well as future requirements. The limitations in the system are listed in the 
following paragraphs. 

The model statistics is computed for different observation types separately rather than 
combined. The map factors are not considered in the verification against the observations. 
In other words, when the model forecasts are verified with respect to the observational data, 
all the latitude/longitude points are considered equally weighted. This system creates only the 
time-series plots to narrow the scope of the graphics component. Other types of graphics can 
be added in the future. 

The prototype is bound to the current FNMOC operating systems and software since 
it should use the FNMOC environment. Therefore, this system may not be as portable as it 
could be when there is a significant change within the FNMOC environment, such as a 
different operating system, new DBMS, new graphics software, new standard shell, etc. 
Some of the lower level modules that interface to the ISTS latitude/longitude/time (LLT) 
data have unavoidable coupling to ISIS due to the different observational data type 


structures. 
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IV. DESIGN 


The initial prototype system design has narrow scope to concentrate on meeting the 
immediate and minimum requirements. Additional requirements will be added in future 
versions to test the system’s flexibility. The immediate requirements are verification of the 
NOGAPS, NORAPS, COAMPS and WAM GLOBAL models after the model runs for daily, 
weekly, monthly and quarterly reports. The prototype will present bias, stdev and rms on a 
few specified parameters (e.g., air temp and wave height). The WAM GLOBAL model is used 
as a representative ocean model in the prototype. 

The prototype of the initial system addresses these requirements to prove the design 
and implementation concept. Additionally, this will demonstrate the feasibility of using a 
single universal model verification system for FNMOC. “The system need not have a finely 
tuned prototype before it is implemented. In fact, one merely asks of the prototype that it 
contains a flexible set of hardware and software tools for continuous redesign, and have 
access to real-time data (with standardized formats).” [Ref. 15] The prototype has a GUI to 
allow the users to view the model statistics in graphical form on a web browser. 

The prototype is developed and implemented in FNMOC’s operational environment 
to ensure that it is useful in that environment. “The important thing 1s that the development 
takes place pnmanily in the operational office, with the direct involvement of the people who 


are going to use it.” [Ref. 15] 
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A. OVERALL STRUCTURAL DESIGN 


Figure 2 shows the overall structural design of the FNMOC model verification system. 


It shows the five main components described in Chapter II and their relationships. 


Model Verification System 


ISIS (Grid) ‘N 
icst, anal 


operational fcst and anal or 
obs run (opsrun) cst and obs 


ISIS (LLT) 


graphs user 


graphics interface 


requests 





Figure 2. Level 1 Diagram 


The operational run component computes the model verification statistics twice a day 
by executing either verobs or veranal. Verobs reads the model forecasts and analysis from 
the ISIS gn database and observational data from the ISIS LLT database. Verobs and 
veranal use the statistics computation routines in the reusable statistics library component 
to perform the computation. They write the statistics in the text files in the standardized 


format (one for each model) for transfer to the FNMOC database development workstation 
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where the statistics database component resides. The operational run component then 
inserts the model statistics into the database. The transfer and the database population is not 
done twice a day by FNMOC operations currently as part of the ops run because operations 
is not one of the owners of the statistics database component. Currently, the transfer and 
database populations are done by FNMOC staff about once a day during the week days. This 
is because the statistics database 1s not part of ISIS currently, and the FNMOC ops run 
does not write to any non-ISIS databases. The statistics database should become a part of 
ISIS after the prototype evaluation. The user interface component presents HTML forms 
to users which they use to make their requests. This component processes the user requests 
by retrieving the model statistics from the statistics database and formats the data for the 
graphics component. The graphics component then creates the graphics to send to the users. 
The following sections describe the detailed design for each module in each of the five 


components. The source code for all the modules is in the Appendix B. 


B. DESIGN OF OPERATIONAL RUN (OPS RUN) 


The ops run has two korn shell scripts, mverif.job and statupd. ksh. It also has 
Fortran programs verobs.f90 and veranal.f90 (in the future) along with a Fortran header file 
v_data.h. mverif.job reads the SMS variables and executes the appropriate program based 
on the SMS variable VERIF SOURCE value. FNMOC operations executes this job script 
to compute the model verification statistics twice a day after each model run is completed. 


The model statistics are written to a text file for each model, geometry and date-time-group 
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(dtg). Statupd.ksh transfers the model statistics text files from one computer to another 
workstation, formats the text file and populates the statistics database using Empress 
Standard Query Language (SQL). Figure 3 shows the design of ops run 


graphically. 
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Figure 3. Ops Run Diagram 
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Le Design of mverif.job (Cray) 

This system needs to be flexible to incorporate new requirements and changes to the 
existing requirements. The use of SMS environment variables in mverif.job is one of the 
methods this system uses to assure this flexibility. FNMOC uses SMS to run the operational 
runs (ops runs) and uses the SMS environment vanables extensively to control the ops runs. 
The SMS variables are set before the mverif.job is executed and passed into the job. Figure 
4 shows the list of the SMS variables and their description. By changing the value of these 
SMS vaniables, mverif.job is executed to verify all the FNMOC models without changing the 
job itself. The values for these SMS variables were set based on the user requirements 
analysis shown in Table 1. The complete SMS value list for each model is included in the 


Appendix A. 


CRDATE - watch date-time-group (e.g., 1998013112) 

ISIS TABLE - ISIS table name, coincides with the model name (e.g., NOGAPS, 
WAM GLOBAL) 

GEOMNM1 - geometry name defined in ISIS (e.g., global 360x181) 
GEOMNM2 - second geometry name 

TAUI - beginning forecast time 


TAUE - ending forecast time 

TAUINC - increment of forecast time 

VERIF SOURCE - either ‘obs’ or ‘anal’ 

OPSBIN - directory in which the binaries for the operational runs reside 
ISIS_INIT - ISIS initialization script name 

PROGBIN - directory in which the binary for this system resides, may be same as 
OPSBIN 





Figure 4. SMS Variables and Description 
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mverif.job is a korn shell script that FNMOC operations execute to compute the 
model verification statistics twice a day. This job performs various operational job required 
tasks such as setting up the operational job environment and executing the correct ISIS 
initialization script. It reads the required SMS_ variables and exports them to the subsequent 
shells. It creates the appropriate sub-directory with the month (mmm, e.g., mar) and year 
(yyyy, e.g., 1998) from CRDATE to write the model verification statistics. There are 
separate sub-directories for each month and year. It copies the model’s namelist files to the 
STMP directory and executes the appropriate executable file based on the variable 
VERIF SOURCE’s value as shown in Figure 3. Ifthe value of VERIF_ SOURCE is ‘obs,’ 
verobs is executed and if the value is ‘anal,’ veranal is executed. It then writes the resulting 
model statistics into the standardized text file in the appropriate data directory 
(/a/ops/etc/dynamic/app/mverif/mmmyyyy). It finishes the process by completing the job 
accounting information and writing the joblog file to the operational joblog output 
directory (/a/ops/job/out). 

2: Design of statupd.ksh (Sun) 

This is a korn shell script that inserts the model statistics into the appropriate data 
table in the statistics database, stat_db. It 1s executed after mverif.job is finished. It formats 
the transferred text file using the awk. Statupd.ksh determines if new statistics files exist 
in the data directory. It also determines the database table to populate based on the model 
name in the statistics files. It then inserts the statistics into the appropriate data table in 


stat db. 
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3. Design of Fortran Include File, V DATA.H 

All data definitions and constants used throughout the Fortran 90 programs (verobs, 
veranal) and their subroutines are in the Fortran include file called V DATA.H. This provides 
for easier maintenance since the modification is isolated in one location rather than in multiple 
locations when changes in a variable occur. 

4. Design of VEROBS.F90, The Main Verification Against Obs Program 

This is the top level Fortran program that verifies the model forecasts with respect to 
the observational data for various models. Verobs.f90 uses the namelist functionality. This 
helps to achieve flexibility in addition to the usage of the SMS variables. Like the SMS 
variables, namelist values are set external to the program. Each model can have a namelist 
file for the surface level and a namelist file for the upper levels. The namelist files are 
explained in more detail in subsection a below. Figure 5 shows the structural design of 


verobs module. 
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Figure 5. Verobs Design 


Verobs.f90 reads the SMS environment variables described in the ops run. It 
determines if the geometry in GEOMNM1 is defined in the ISIS. If it is not defined, the 
geometry information is added. Once the geometry is defined, it determines the earth area 
to read the observations for the model verification. It then reads the model forecast from the 


ISIS gnid database and observations from the ISIS LLT database. It interpolates the model 





forecast to the observational data points to compute the bias, stdev and rms using the 
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statistics library component. It wnmtes the statistics to a text file. The text filename is 
determined by the SMS variable values for ISIS_ TABLE, GEOMNM2 and CRDATE. The 
modules (Fortran subroutines) called by verobs are described in the following sections starting 
in section D. 

a. Namelist file format for each model 

Each model can have two namelist files, one for the upper environmental levels 
and one for the surface level. The second namelist file is needed because the surface level is 
different for different parameters and level types while the upper levels are common levels for 
all the parameters. For example, the surface level for air temperature is 2.0 meters, while the 
surface level for wind speed is 19.5 meters. Figure 6 shows the list of the namelist items and 
their descriptions. The complete namelist files for each model are included in Appendix A 


along with Table 3. Table 3 shows the namelist items specified by the users for each model. 
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parm - the list of model parameters to verify 

dsetname - the data set name for the model forecast parameter in ISIS grid data 
obs_parm - the corresponding parameter in the observational data in ISIS LLT data 
odsetname - the data set name for the observational parameter in the LLT data 
units - unit of the given parm 


lvltype - level type of the given parm 

obstype - the observational type to read from LLT data 

level - vertical level to read 

stat - type of statistic to compute (bias, std, rms) 

tval - threshold value for the threat score, probability of detection, false alarm, and 
skill score; it will be an optional item since it is not always be used. 





Figure 6. Namelist Variables and Description 


For each value of parm, there must be a corresponding value for dsetname, 
obs parm, odsetname, units, lvltype and obstype. For example, if the parm value is 
‘air temp,’ there must be values for the dsetname which can be ‘fcst_ops,’ the obs_parm 
which should be ‘air temp,’ the odsetname which can be ‘fnmoc,’ the units which should be 
‘deg _K,’ the lvltype which can be ‘isbr_lvl’ and the obstype which can be ‘raob_qc.’ 

b. boundary 

This Fortran subroutine determines the geographical area from which to 
extract observations to use in the verification. It computes the minimum and maximum 
latitude and longitude for a given geometry’s area box. These minimum and maximum 
latitude and longitude are required for reading the observational data from ISIS Ilt database. 
It fills the single dimension arrays, x and y, with the values representing the left, nght, bottom 
and top boundaries. It converts x/y values to latitude/longitude values by calling FNMOC 


utility, vxy11. It then finds the minimum and maximum latitude and longitude. 
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Cc f2ob 

This Fortran subroutine interpolates the model forecast fields to the 
observation locations. It obtains the number of rows and columns for the geometry defined 
by GEOMNM2 by the ISTS utility get geom and finds the maximum array dimensions for 
x and y arrays. It converts observations latitude/longitude points to x/y values by calling 
FNMOC utility, vl1xy. It then interpolates the model forecast to the observation points by 
calling FNMOC utility, fintrp. 

d. intgeom 

This Fortran subroutine interpolates one geometry to another geometry. This 
interpolation is necessary when a model needs to be verified in the geometry other than the 
geometry in which it is stored. For example, the global models such as NOGAPS are 
compared to the regional models such as NORAPS_ASTA in the same Asia region. It gets 
the information on the two geometries defined by GEOMNM1 and GEOMNM2 by calling 
the ISIS utilities ggrd and getgeom. It then interpolates the first geometry to the second 
geometry points by calling the FNMOC utility chgeom. 

é. lltread 

This Fortran subroutine calls the appropnate LLT read subroutine based upon 
the observation type. This subroutine acts as the middle man between the main program 
verobs and the llt read subroutines for each observation type. There are separate LLT read 
modules for each observation types because the include files and the data structures in ISIS 
are different for different observation type. For example, the observation type ‘raob_qc’ is 


read by the raob_qc_read subroutine. The subroutine raob_qc_read uses two ISIS includes 
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files, common.inc and RAOB OQC.H. It has to use the data structure TYPE (raob_qc_int) 
and TYPE (raob_qc), and use the ‘raob_qc’ sequence type in the call to the ISIS LLT read 
utility 1rd. Currently, verobs reads only the observation types, raob_qc, sfc_Ind, sfc_ship, 
sfc ship met_qc and alty using raob_gc_read,_ sfc_Ind_read,  sfc_ship_read, 
sfc_ship_met_qc_read and alty_read, respectively. Other observation types will be added 


as more models and parameters are added to the model verification system. 


c. DESIGN OF STAT LIB 


The requirements analysis indicated the following statistics should be included in the 
initial prototype: Mean error (bias), standard deviations (stdev), root mean square (rms), 
anomaly correlation (anc) for most of the model parameters and threat score, probability of 
detection, false alarm, and skill score for selected model parameters. This research focusd 
on just the first three statistics since they are most often used. The other statistics will be 
added in future versions. Some of the existing routines will be modified to make them more 
general purpose and added as part of the statistics library. The design of each statistics 
module is described in the following sections. 

hs Map Factors 

The basic formula for the statistics are the same, but the statistics routines need to 
take the map projections into account to compensate for differences in earth area at different 
latitudes on the earth. This is achieved by applying a map correction factor at each grid point. 


Then the routines calculate the area using the new x- and y- coordinates. The general 


oF, 


mathematical formula for the statistics is 


(ets s(A,@)da / surface area = ()'s, W,)/ YW, 
where s=value at a given i/j grid point, A=longitude, ~=latitude, W,, are weighting factors. 

There are two distinct cases to consider in the weighting factors or map factors. First, 
the observations are all independent. Therefore, each observation has equal weight, and the 
statistics formula becomes a simple average formula. Second, the grid points in which they 
lie must be weighted according to the relative size of the physical area related to the map 
factors for the relevant projection. In general, 

WY 2 (Ax; AY;i)n 

where Ax, = h,AA,, Ay; =h A@,h and h depend on the map projection and AA is the 
difference between two longitude, and A@ is the difference between two latitude of the box 
the s value lies. 

According to © FNMOC’s~ model meta data database table, 
ops meta grid db.grid_ reg geom, FNMOC’s models use polar stereo, spherical, 
lambert, and mercator projections. FNMOC verifies NOGAPS in spherical projection against 
its analysis with the map correction factor currently. Some models are verified without the 
map projection consideration against the observational data with the assumption that each 
observation has the equal weighting factor of 1. The map factors for each map projection 


used at FNMOC are as follows: [Ref. 10, Ref. 12] 


Spherical: 
h, = cos, 
hy=1 
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Polar Stereo: 


n= oy = (A)(1tsing;) 

Mercator: 

h, = h, = cos@; / cos@y 

where (p, is the latitude at which the projection is “true” and can be obtained from FNMOC 
database attribute geom_parm_1 in degrees. 

Lambert: 

h, =h, = (cos@,/cos@,)'™ [(1+sing,) / (1+sing;)]}* 

where K = In(cos@,/cos@,) + In[tan(7/4 - ~,/2) / tan(1/4 - @,/2)] 

(,, ~, are standard latitudes of the projection; their values can be obtained from FNMOC 
database attributes geom_parm_1! and geom_parm_2 in degrees. 

ju Bias (Mean Error) 

“Error is the simple difference of forecast minus verifying analysis or observation. The 
difference (error) field provides a quick look at a model’s forecast performance or bias. Bias 
or tendency describes whether a synoptic field or feature is under or over-forecast.” [Ref. 13] 
The advantage of the simple difference fields is that they are easy to compute and understand. 
They provide a quick look at the model forecast performance. [Ref. 13] The formula used 
for bias 1s 


X(F, - O,) W,, / XW,, where F is forecast, O is the observation. 


a Standard Deviations (stdev) 
“Standard Deviation (stdev) is a measure of the scatter or variability about the mean 
in a series of observations. Standard Deviation is the positive square root of the variance.” 


(Ref. 13] The formula used for stdev is 


sqrt [(L(F, - O,)°)W,) / 2 W,) - 2((F, - 0,)W,) / 2 W,)']. 
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4. Root Mean Square (rms or rmse) 

“Root Mean Square Error (RMSE) is defined as the positive square root of the mean 
square error (MSE). MSE is the mean square of any residual. RMSE is the also called the 
standard error of estimate.” [Ref. 13] “The RMSE is a quadratic score that gives the average 
magnitude of the errors. This statistics gives more weight to large errors than to small errors 
in the average, and is useful when large errors are undesirable.” [Ref. 16] The formula used 


for rms 1S 


sqrt ((L(F, - 0,” W.)/=W,). 


D. DESIGN OF STATISTICS DATABASE 


The statistics database component uses FNMOC’s RDBMS, Empress, to 
consolidate all the model statistics in one location. The database has a table for each model. 
The data in the tables are based upon the model developers’ recommendations. A 
consolidated database will speed up the data retrieval and insertion. It will also accommodate 
modifications if the table structure needs to be modified for a particular model in the future. 


Figure 7 shows the SQL command used to create the generic table model_stats. 
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CREATE TABLE MODEL STATS 
(verif_date character(10, 1) not null, 
sample_size integer not null, 
parm_name character(32, 1) not null, 
unit name character(32, 1) not null, 
geom_ name character(32, 1) not null, 
lvl_type character(24, 1) not null, 
level_ 1 float(2) not null, 
tau integer not null, 
Stat_type character(16, 1) not null, 


stat_value float(2) not null, 
verif_source character(8, 1) not null, 
obs type character(24, 1) not null) 


Indices: NORMAL (2, 15) parm_id ON (parm_name) 
NORMAL (2, 15) geom_id ON (geom_name) 
NORMAL (2, 15) level_1_id ON (level_1) 
NORMAL (2, 15) tau_id ON (tau) 

NORMAL (2, 15) stat_type_id ON (stat_type) 
NORMAL (2, 15) obs_type_id ON (obs _type) 





Figure 7. SQL used to create the generic table 


The basic table attributes are shown in Figure 8. This structure was saved in a file 
stattbl by the Empress command ‘display model_stats all dump into stattbl;.’ The tables for 
other models were created using the structure stored in the file stattb/ by the Empress 
command ‘create nogaps from stattbl; ’. 

The use of the indices improved the retrieval performance from greater than 3 
minutes to less than 5 seconds. However, the insertion performance was degraded especially 
as the number of records increased. The tradeoff between these two scenarios favored the 
increase in the retrieval performance. The compromise may be to drop the indices, perform 


the insertion, then rebuild the indices every time data are updated according to a local 


4] 


database expert, but this compromise has not been tried for this research. 
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Figure 8. Statistics Table Attributes 


E. DESIGN OF GRAPHICS 


The graphics component consists of one IDL program currently in the prototype. 
This IDL program plots the bias, stdev and rms for a single model, single geometry, single 
parameter, single forecast period, single atmospheric pressure level and single observation 
type on one graph. More IDL programs will be added in future enhancements to create the 
graphs for other combinations. The IDL program creates a GIF file for display in web 


browsers. Figure 9 shows the structural design of the graphics component. 


42 


Set up color 
chart 


Plot the data 





Figure 9. Graphics Design 


The IDL program reads the data from a text file into the IDL array. It reads various 
environment variables to use within the program. It builds sub-arrays based upon the 
Statistics type, e.g., bias, stdev and rms. Future IDL programs will build different sub-arrays 
based on the models, geometries, forecast periods, atmospheric pressure levels, or 
observation types. It formats FNMOC’s 10-digit date-time group (1998032000) into a more 
meaningful date-time format (00Z 20Mar 98) to use on the x-axis label. It plots the bias and 
rms with different symbols and colors, and stdev as the shaded areas above and below the bias 
as requested by the users. Future IDL programs will create the scatter plots and other plots 
as the requirements change. An example of the current graphs is shown in Figure 13 in the 


next section. 
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F. DESIGN OF USER INTERFACE 


Figure 10 shows the structural design of the user interface component. This 


component ties together the statistics database and graphics components. It has a GUI and 


Common Gateway Interface (CGI) to give the users access to the model statistics. 
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Figure 10. User Interface Design 


The GUI portion has several html forms to interface with the users. The first 
model verification system web page shown in Figure 11 is created by the file wdex.himl. It 


is Shown using a Net scape web browser. 
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Figure 11. Home Page 


When the user picks a model by clicking on a selection button, the model page is 
displayed. An example model page is shown in Figure 12 for the WAM_GLOBAL model. This 
page is created by the file wam.html. The model pages have the default values already 
selected, but the users can change the values by simply clicking other choices. The user 
would then click on the ‘Submit the query’ button when (s)he is finished composing the 


request or the ‘Cancel’ button at any time. 
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Figure 12. WAM_GLOBAL Statistics Page 


Once the user submits the query, the CGI portion of this component takes over. 
The CGI portion has several programs to satisfy the user requests dynamically. Since this 
research was implemented in the current operational environment, several accommodations 
had to be made. The FNMOC intranet web server is on a Sun workstation called ‘devul.’ 
As discussed earlier in the statistics database component, the stat_db is on a database 
development workstation called ‘div60-3.” The model statistics must be retrieved from div60- 
3 and transferred to devul to work in the current configuration. The GIF images are also 
created on div60-3 because it has better performance than devul. 

When the user’s request is submitted, a CGI perl script in the cgi-bin is executed 


to processes the user request. This CGI script parses the user request and starts the 
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processing of the user request via runjob on div60-3. This runjob involves data retrieval 


from stat db by Empress SQL. It then formats the retrieved data by awk for IDL to read. 
It executes the IDL program described in the previous section which creates a GIF file. It 
then transfers the GIF file to the web server via ft pbatch. Once the GIF file transfers 
successfully, the GIF image is displayed on the web browser. 

Figure 13 shows the result of the query from Figure 12 for WAM_GLOBAL. At this 
point, the user can print the image, save the image in different formats supported by the web 


browser (e.g. GIF, postscript, etc.) or just view the image. 
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Figure 13. WAM GLOBAL Statistics Graph 


V. EVALUATION 


The evaluation of the model verification system included alpha testing and beta 
testing. The alpha testing was performed by the developer by comparing the computed 
statistics to the existing verification system verobs. The beta testing was performed by 
FNMOC operations and FNMOC model developers (users). The operations ran the model 
verification system and verobs in parallel for four weeks. The users used the prototype to 
access the verification statistics via the Netscape web browser. The addition of a new 
model, COAMPS SOUTHWEST ASIA, demonstrated the ease of extending the model 


verification system to include other models. 


A. ALPHA TESTING 


Each unit (program and subroutines) of the ops run components was unit tested using 
the Fortran debugger, TotalView, which enabled the developer to test the binaries 
interactively. The debugger allows the tester to assign values to variables, print values of 
variables, and step through the statements in the calling program and called subroutines. This 
testing was useful in identifying code-level bugs, e.g., the parameter orders in the actual and 
formal parameter lists of the subroutine call to boundary in the main program verobds did not 
match. 

The statistics computed by the statistics library subroutines were compared to the 


statistics computed using Microsoft Excel. A set of numbers from the model forecast 
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and a set of numbers from the observational data were assigned to two arrays. The statistics 
bias, stdev, and rms were computed by the statistics library subroutines and Excel. These 
two sets of statistics matched as shown in Appendix C. The test program for the statistics 
library subroutines, stattest, is included in Appendix C. 

The developer compared the model forecast and observational data at the first 15 
latitude/longitude points of the test run of the model verification system to the first 15 
latitude/longitude points of the operational verobs to ensure they matched point-by-point 
as well as the overall computed statistics. An error in the loop index in the statistics library 
routines was discovered and corrected during the alpha testing. 

The test runs included verification of each model in its own area and the verification 
of the global model in the regional model areas. The purpose was to test the interpolation 
involved when a model was verified in an area other than its own. The global model NOGAPS 
was verified in the regional model NORAPS areas (Asia, Continental US, Europe, Indian 
Ocean) and in the COAMPS area (Europe). This allowed the comparison of multiple models 
in the same geometry. A change in one of the COAMPS geometnies was discovered during 
the alpha testing. The COAMPS model developer modified the geometry for the model, but 
the verification systems were not aware of this change. The change in the geometry resulted 
in the job running without computing any statistics. This change was implemented in the 
model verification system by changing a SMS variable. 

The statistics database component was tested by inserting data and performing 


queries against the database. The time required to return data from the initial queries was 
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much longer than anticipated. Modifications to the database tables were made which 
improved query performance significantly. 

A set of data from stat_db was saved in a text file to be the test data for the IDL 
program in the graphics component. The graphics component was tested by printing out the 
data, printing out the subarrays created from the data and examining the graphs of the model 
statistics. The user interface component was tested using the Netscape web browser. The 
cgi scripts were installed on the FNMOC intranet web server cgi-bin because the current 
web server configuration does not allow the execution of the cgi scripts in cgi-bin 
directory of individual users/developers. The FNMOC intranet webmaster installed the cgi 


scripts in the web server cgi-bin directory. 


B. BETA TESTING 


The purpose of the beta testing was to compare the model verification system to the 
existing verification process and to test the user interface of the prototype. The beta testing 
was performed by operations and the users at FNMOC. The operational beta testing started 
on 18 March 1998 by FNMOC operations to verify NOGAPS, NORAPS, COAMPS and 
WAM GLOBAL models in their own areas. The verification of NOGAPS in the NORAPS and 
COAMPS areas was added on 25 March 1998. The model verification system was comparable 
to the existing verification system verobs, but it was much easier to add the verification of 


NOGAPS in the NORAPS and COAMPS areas. 
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An important part of the beta test was the evaluation of the OOO ease of use. 
Generally, users indicated that the system was very easy to use. Another area examined was 
how easy it was to access the model statistics. Again, users evaluated this area positively. 
Another area evaluated was whether the system provided the required displays. For the most 
part this area was positively evaluated. However, the users wanted more types of graphs such 
as multiple models on a single chart, wanted the number of observations displayed, and better 
performance, 1.e., faster return of the images. Based on the Beta testing results, the prototype 


meets the easy-to-use model verification system requirements. 


C. MODIFICATION 


A new model, COAMPS SOUTHWEST ASIA, was added to the prototype after the 
initial product implementation. This provided an opportunity to evaluate how easy it would 
be to modify the verification system. It was very easy to add the additional model to the 
model verification system and no design changes were required. Adding this new model 
required only a few modifications. The operations executes the job script mverif.job with 
appropriate SMS variables for the model (See Appendix A) after 
COAMPS SOUTHWEST ASIA completes its run. A table _—for 
COAMPS SOUTHWEST ASIA was created in the stat_db. The html forms were updated 
to reflect the additional model. This demonstrated that the ease of modification requirement 


was Satisfied. 
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D. SUMMARY 


This research has resulted in the development and demonstration of an easy-to-use 
model verification system for all FNMOC models. Furthermore, it has demonstrated that 
model verification can be standardized in FNMOC. The model verification standardization 
was achieved by the several components of the model verification system. The reusable 
statistics library standardized the statistics computation, the statistics database standardized 
the data format, data location, data schema, interface to the database, and the graphics 
standardized the graphical display of the model verification statistics. Additionally, it proved 
the concept of a easily modified verification system. Adding a model to the system required 
no design changes and no source code level changes other than adding new modules to handle 
the additional observation types. Finally, the prototype demonstrated that an easy to use 
system could be developed to return data and graphs to the user’s desktop. The use of a GUI 
and a web browser provided the users with an easy-to-use access to the model verification 
statistics. No user training was required. Therefore, the research successfully addressed the 
research questions and has proven the concepts can be implemented in the full model 


verification system. 
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VI. RECOMMENDATIONS AND FUTURE RESEARCH 


This chapter discusses the recommendations for future FNMOC model verification 
systems implementaion based upon the results of this research. It suggests areas of future 


research in fully implementing a single model verification system for FNMOC. 


A. RECOMMENDATIONS 


FNMOC needs to use one verification system to verify all the meterological and 
oceanographical models. This single system will provide many benefits to FNMOC. First a 
single verification system will eliminate the redundancies and inconsistencies of multiple 
verification systems. Additionally, it will eliminate the maintenance-intense verification 
systems needed to maintain data consistency and accuracy. It will also standardize the model 
verification process. An additional benefit is that by using the same verification system the 
model developers will be able to focus more on the model development effort than on the 
verification process. This research proved the feasibility of using a single model verification 
system for all the meteorological and oceanographic models at FNMOC by providing a easily 
modified system. This model verification system demonstrated it can verify all the models and 
standardize the model verifications at FNMOC and became useful to the model 
verification/validation group in FNMOC. This model verification system also provides a 
verification system for the models that do not currently have a verification systems. 


FNMOC can provide users with an easy-to-use tool to access the model verification 


=> 


Statistics that meets the users’ needs. Having an easy-to-use tool that is readily assessible via 
the web technology is important for both internal and external users. The internal users could 
be the model developers, model researchers, managers, statisticians, or others in the command 
responsible for FNMOC data accuracy. The external users could be US Navy organizations, 
US Air Force organizations, or other organizations. This research proved that the concept 
of an easy-to-use model verification system via GUI and the web browsers is feasible. It 
provides access to the verification statistics and graphs to anyone who has a web browser. 
Giving users easy access to the model verification statistics makes their efforts to fine tune 
the models and/or evaluate their performance more effective. It is much too difficult and time 
consuming to access the information in the currently existing model verification systems in 
FNMOC. 

FNMOC needs to document the model verification requirements for all the models. 
This research identified and documented each model’s verification requirements. This will 
be useful for current and future model developers and model users both within FNMOC and 
outside FNMOC. 

FNMOC should use prototyping as much as possible in developing new systems. The 
prototype was a very useful communication tool between the designer/developer of the model 
verification system and the users. It helped to firm up the requirements and identified 
additional requirements that were not identified in the initial requirements analysis, especially 
in the graphics area. 

Finally, FNMOC should build a comprehensive model verification/validation system 


for all the models in FNMOC. The first step in this effort should be building a comprehensive 
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quantitative model verification/validation system that has three subsystems. One subsystem 
should display the model forecast and analysis, another subsystem should display the 
observational data, and a final subsystem should display model verification statistics. This 
research dealt with the third subsystem. Each subsystem should have the same look and feel 
interfaces with a GUI. Addition of subject matter expertise (qualitative aspect) to aid the 
interpretation of the quantative measures will provide a complete model verification/validation 


system for all the models at FNMOC. 


B. FUTURE RESEARCH 


There are many potential extensions for the model verification system to implement 
all of the user requirements identified during the requirements analysis. 

1. Ops Run 

First, the new verobs should be completed by adding more observation types. This 
means adding the Fortran subroutines to read the additional observation types from the ISIS 
LLT database. 

Second, more models should be added to the model verification system. There are 
several additional ocean models to verify, and these ocean models were prioritized for their 
implementation order. The observation types MCSST, Buoy and Bathy need to be read by 
the subroutines mcsst_read, buoy_read, bthy_read, respectively, for the OTIS GLOBAL, 
OTIS W ATL and OTIS W PAC models. The next models to implement are 


TOPS GLOBAL, TOPS W ATLand TOPS W_ PAC using the same observation types as 


ae 


OTIS models. The users want to compare the OTIS and TOPS models and determine 
whether FNMOC needs to run both models. The observation type SSMI_EDI ICE needs 
to be read by the subroutine ssmi_edi_ice_read for the PIPS N HEM model. 

Third, the verification against the model analysis, veranal should be added. This 
involves several steps. Complete the design, using the existing verification system nogstat 
if feasible. Expand the statistics database and user interface components to reflect the 
veranal statistics. 

2: Statistics Library 

The map factor subroutine in the statistics library component should be revisited and 
completed for all the projections used at FNMOC as described 1n the design chapter because 
the map factors will be used in veranal. Other statistics computation modules should be 
added to compute the additional statistics such as anomaly correlation, probability of 
detection, threat score, etc. 

3: Statistics Database 

The stat_db should be incorporated into FNMOC’s database and FNMOC database 
administrators (DBA) should be responsible for administering the stat_db. This will allow the 
operations to write directly into the database as the statistics are computed twice a day. This 
will eliminate the current method of one person transferring and populating the database 
manually. This will also make the latest statistics available to the users. 

4. Graphics 

The graphics component should be expanded by adding more types of graphs. There 


are many different possible graphs based on the combination of models, forecast penods, 
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levels, observation type and statistics. Some of the combinations of interest include multiple 
Statistics for a single model, single forecast period, single level, single observation type; 
multiple levels for a single model, single forecast period, single observation type, single 
statistic; multiple forecast periods for a single model, single level, single observation type, 
single statistic; multiple models for a single forecast period, single level, single observation 
type, single statistic. One of the users suggested adding the maps of the geometries used in 
the various FNMOC models and adding the number of observations on the graphs. These are 
very good suggestions and should be added to the system. 

a User Interface 

The user interface component should be expanded to handle the various types of 
graphs described in the previous paragraph. The html forms should be made to be more 
robust and remove the possibility of user input errors. Currently, there is room for user input 
errors in the html forms in matching the atmospheric levels, observation types and 
parameters because all the levels and observation types (both surface and upper levels) are 
available on the forms. Here is an example scenario to demonstrate the erroneous input. 
Let’s say the user wants to view the graph of NOGAPS for air_temp at the surface level. The 
user Clicks air temp for the parameter, 0 for the level (the correct surface level for air_temp 
is 2.0 meters), raob_qc for the observation type (raob_qc is not a surface level observation 
type). The correct selections would have been air temp, 2 meters, and sfc land or 
sfc ship met _qc. The users for whom this research is designed are familiar with these facts. 
However, this is a definite shortcoming when this model verification system’s user group 


expands in the future. 
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6. Other Open Issues 

The current hardware configuration in FNMOC has a severe impact on the response 
time in the model verification system. The intranet web server is on an older and slower 
workstation (devu!) while the model statistics database is on a different workstation (div60- 
3). This hardware configuration requires a communication (handshake) from devu1 to div60- 
3. The model verification system then has to use the runjob script to query the database 
and create a GIF image on div60-3 from devul. Once the GIF image 1s created, another 
handshake from div60-3 to devul is needed to send the GIF image back to devul from 
div60-3 by FTP. The first handshake takes approximately one minute while the actual data 
query and image generations take approximately seven seconds. It takes another 1 to 2 
seconds to transfer the GIF file. The delays associated with the handshakes, runjob and 
ftp could be eliminated if the database and web server were on a single, faster workstation. 
The specific hardware requirements for a single server for web, database, and graphics need 
to be identified. Having hardware with the appropriate capability would also ease the 
development and testing process. It would eliminate the need for various routines such as 
runjob and ftp. This would decrease the time needed to process the user request by 
eliminating the need for the various hardware systems to communicate with each other. 
Finally, this would also help in planning for the future installation of the model verification 


system on the internet for external users. 
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APPENDIX A 
A. SMS VARIABLES 
The following are common SMS variables for all the models: 


ISIS_INIT=/a/ops/sis/db_init/init_ops.ksh 
OPSPATH=/a/ops 

OPSBIN=/a/ops/bin 

CRDATE=$(dtg) 


Le NOGAPS 


TAUI=0 

TAUE=144 

TAUINC=12 
GEOMNM1=global_360x181 
GEOMNM2=¢lobal_ 360x181 
ISIS_TABLE=NOGAPS 
VERIF_ SOURCE=obs 


2. NORAPS ASIA 


TAUI=0 

TAUE=48 

TAUINC=12 
GEOMNM1=asia_nest1_appl 
GEOMNM2=asia_nest1_appl 
ISIS_TABLE=NORAPS ASIA 
VERIF SOURCE =obs 


3. | NORAPS CONUS 


TAUI=0 

TAUE=48 

TAUINC=12 
GEOMNM1=conus_nestl_appl 
GEOMNM2=conus_nest1_appl 
ISIS_ TABLE=NORAPS CONUS 
VERIF SOURCE=obs 
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4. | NORAPS EUROPE 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM 1=europe_nest1_appl 
GEOMNM2=europe_nestl_app! 
ISIS_-TABLE=NORAPS EUROPE 
VERIF SOURCE =obs 


5. | NORAPS IND OCN 


TAUI=0 

TAUE=48 

TAUINC=12 
GEOMNM1=1ind_ocn_nest1_appl 
GEOMNM2=ind_ocn_nestl_ appl 
ISIS TABLE=NORAPS_IND_OCN 
VERIF_ SOURCE=obs 


6. NOGAPS FOR ASIA 


TAUI=0 

TAUE=48 

TAUINC=12 
GEOMNM1=global_ 360x181 
GEOMNM2=asia_nest1_appl! 
ISIS_ TABLE=NOGAPS 
VERIF SOURCE=obs 


Ue NOGAPS FOR CONUS 


TAUI=0 

TAUE=+48 

TAUINC=12 
GEOMNM1=global_ 360x181 
GEOMNM2=conus _nestl_appl 
ISIS_-TABLE=NOGAPS 
VERIF SOURCE=obs 


8. NOGAPS FOR EUROPE 


TAUI=0 


TAUE=48 

TAUINC=12 
GEOMNM1=global_ 360x181 
GEOMNM2=europe_nest1_appl 
ISIS_TABLE=NOGAPS 
VERIF SOURCE=obs 


9. | NOGAPS FOR EUROPE _NEST2 


TAUI=0 

TAUE=48 

TAUINC=12 
GEOMNM1=global_360x181 
GEOMNM2=europe_nest2_appl2 
ISIS TABLE=NOGAPS 
VERIF SOURCE=obs 


10. NOGAPS FOR EUROPE _NESTS3 


TAUI=0 

TAUE=24 

TAUINC=6 
GEOMNM1=global_ 360x181 
GEOMNM2=europe_nest3_appl3 
ISIS_TABLE=NOGAPS 

VERIF SOURCE=obs 


11. COAMPS EUROPE 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM ]1=europe_nest2_appl2 
GEOMNM2=europe_nest2_appl2 
ISIS_TABLE=COAMPS EUROPE 
VERIF SOURCE=obs 


12: COAMPS EUROPE FOR NEST3 
TAUI=0 
TAUE=24 


TAUINC=6 
GEOMNM1]1=europe_nest3_appl3 
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GEOMNM2=europe_nest3_appl3 
ISIS_-TABLE=COAMPS_ EUROPE 
VERIF SOURCE=obs 


13. COAMPS SOUTHWEST ASIA FOR NEST2 


TAUI=0 

TAUE=48 

TAUINC=12 

GEOMNM 1=southwest_asia_nest2_appl 
GEOMNM2=southwest_asia_nest2_appl 

ISIS TABLE=COAMPS SOUTHWEST_ ASIA 
VERIF SOURCE =obs 


14. COAMPS SOUTHWEST_ASIA FOR NEST3 


TAUI=0 _ 

TAUE=24 

TAUINC=6 

GEOMNM 1=southwest_asia_nest3_appl 
GEOMNM2=southwest_asia_nest3_appl 

ISIS TABLE=COAMPS SOUTHWEST_ASIA 
VERIF SOURCE =obs 


15. WAM GLOBAL 


TAUI=0 

TAUE=144 

TAUINC=12 

GEOMNM 1=¢global_ 360x181 
GEOMNM2=global_ 360x181 
ISIS_TABLE=WAM_GLOBAL 
VERIF SOURCE=obs 
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|S NAMELIST REQUIREMENTS OBTAINED FROM THE USERS FOR EACH 
MODEL 
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C. NON-SURFACE NAMELIST FILES 


If NOGAPS, all NORAPS and all COAMPS 


&verlst 

parm="air temp", "geop_ ht", "wnd_spd", 
dsetname="fcst_ops","fcst_ops","fcst_ops", 
obs _parm="air temp", "geop_ht", "wnd_spd", 
odsetname="fnmoc","fnmoc","fnmoc", 
units="deg _ " Opie "m/s", 
Ivitype="isbr_lIvl","isbr_Ivl","isbr_Ivl", 
obstype="raob_qc","raob_qc","raob_qc", 
level=1000,925,850,700,500,400,300,250,200, 150,100, 
stats="bias","rms","std", 

tval=35.0 

é&end 


D. SURFACE NAMELIST FILES 


1. NOGAPS, all NORAPS and all COAMPS 


&sfclst 

sfc_parm="air_temp","air_temp", "pres","pres", "wnd_spd","wnd_ spd", 

St GSU iy _ops","fcst_ops","fcst_ops","fcst_ops","fcst_ops","fcst_ops", 

sfc_obs_parm="air_temp","air_temp", "sea_lvl_pres","sea_lvl_pres","wnd_spd", "wnd_spd", 

sfc_odsetname="fnmoc","fnmoc","fnmoc","fnmoc","fnmoc","fnmoc", 

sfc_units="deg K","deg K","mb","mb","nv/s", Gon) Se. 

sfc_Ivltype="ht_sfc","ht_sfc", "msl","msl","ht_sfc","ht_ sfc", 

sfc obstype—"sic_Ind’,"sic_ship_met_qc’,"sic_Ind","stc_ship_met_qe,"sfc_Ind","sfc_ship 
_met_qc", 

sfc_level=2.0,2.0,0.0,0.0, 19.5,19.5, 


sfc_stats="bias","rms","std", 
sfc_tval=35.0 
é&end 


(i 


2. WAM GLOBAL 


&verlst 

parm="sig_wav_ht", "peak_wav_per", 
obs_parm="inst_wav_ht_2", "inst_wav_per", 
units="m", eae 

lvltype="surface","surface", 

level=0,0, 

stats="bias","rms","std", 

obstype="sfc_ ship", 

tval=35.0 
&end 
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APPENDIX B SOURCE CODE 
A. OPS RUN 


1. mverif.job 


# QSUB -It 00:30:00 

# QSUB -IT 00:30:00 

# QSUB -lm 10Mw 

# QSUB -IM 1OMW 

# QSUB -eo 

# QSUB -ko 

# QSUB -o /home/pacek/mvenif/etc/mvenf.out 
# QSUB -s /bin/ksh 

# QSUB -x 


SN Se ee 
# local function to handle the exit code from executing binary 
eee 
INIT_user_exitQ) { 


case $? in 
0) #Normal exit 
INIT_joblog_comment=MVERIF_COMPLETED OK 
code=0 
1) #pfxgetenv error in the main program 
INIT_joblog_comment=MVERIF_INFORMATIVE_PFXGETENV_ERROR 
code=0 


2) #ch2int error in the main program 
INIT_joblog_comment=-MVERIF_INFORMATIVE_CH2INT_ ERROR 
code=0 


3) #not enough info to continue 
INIT_joblog comment=MVERIF_INFORMATIVE_NOT_ENOUGH_INFO 
code=0 


4) #output file open error 
INIT_joblog_comment=MVERIF_INFORMATIVE OUTPUT_FILE_ OPEN ERR 
code=0 

5) #error with gerd call 
INIT_joblog_comment=-MVERIF_INFORMATIVE_GGRD_CALL ERR 
code=0 


6) #error with getgeom call 
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INIT_joblog_comment=-=MVERIF_INFORMATIVE_GETGEOM_CALL ERR 
code=0 


7) #error with boundary subroutine call 
INIT_joblog_comment=MVERIF_INFORMATIVE BOUNDARY _CALL ERR 
code=0 


*)) #Abnormal exit, save log file 
INIT_joblog_comment=MVERIF FAILED 
code=99 
if [ -f "$tempfile” J; then 

cp $tempfile SHOME/mveriffetc/o_mverif_err.log 
fi 
esac 
return $code 


} 
fp 


# setup the job environment 

ee ee 
. SOPSBIN/nit_job 

set -Sx 

INIT_do_not_notify_operator=0 

INIT_notify_status=ERR 

INIT_notify_users="pacek" 

. $ISIS_INIT 


eee eee 
# test to see if env var CRDATE exist, otherwise take the ops dtg 
eS ——e—e—eEEeeEEEEEEE—EEEE 
if [ -z "SCRDATE" ] 
then 

echo "Null CRDATE, setting to ops dtg." 

CRDATE=S(dtg) 

export CRDATE 
fi 


Se  ———eEEeEEEEe————EeeeeeEEEE 
# set the required env var and export the SMS and other var 

———————— ee —————————————E—eEeET———_—— = 
#PROGBIN=/home/pacek/mvernif/bin 

PROGBIN=$ {PROGBIN:-$SOPSBIN} 

MVERIF_ DIR=$OPSPATH/etc/dynamic/app/mvenf 

#MVERIF_DIR=S$HOME/mveniffetc 

echo $MVERIF_DIR 

integer TAU] 

integer TAUE 

integer TAUINC 

export TAUI TAVE TAUINC 

#TEST_DIR=/home/pacek/mvenit/test 

TEST_DIR=$OPSPATHretce/static/app/mverif 
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NAMLIST_FILE1=$ISIS_ TABLE-verfil 
NAMLIST_FILE2=SISIS_TABLE-sfeverfil 

print "namlist_filel="$NAMLIST FILE] " namlist_file2="$NAMLIST_FILE2 
export NAMLIST_ FILE] NAMLIST_FILE2 


ee SS a Se Ee SS SS SS SSS 
# job accounting info 
———— eee 


ja 


SS Se 
# need to pull out the month and year from CRDATE 
a 
year= echo $CRDATE | cut -c1-4° 
month="echo $CRDATE | cut -c5-6° 
case $month in 

01) mon='jan' ;; 

02) mon="feb' ;; 

03) mon="mar' ;; 

04) mon='apr' ;; 

OS) mon="may' ;; 

06) mon="jun’ ;; 

07) mon="jul' ;; 

08) mon='aug’ ;; 

09) mon='sep' ;; 

10) mon="oct' ;; 

11) mon="nov' ;; 

12) mon='dec' ;; 
esac 


eee ee eee ee ——————————— ee 
# find the appropriate subdirectory 

eee 
subdir=$mon$year 


OS ee 
# need to test for the existance of subdir otherwise the 
# job will crash 
F Ee a a ee a ee ee ee ee 
if [-d $MVERIF_ DIR/$subdir ] 
then 
echo $MVERIF _DIR/$subdir "exists" 
else 
mkdir S$MVERIF_DIR/$subdir 
chmod 775 $MVERIF_DIR/$subdir 
fi 


————— ee eee 
# the output directory 

7 ==————_ EES EE ee ee EES 
OUTDIR=$MVERIF_DIR/$subdir 

echo $ISIS_ TABLE $TAUI STAVE $TAUINC 


ve 


SSS SEE ——LNNNBappPpppEEE—E—E——————— 
# determine the current watch and month's stat file name 
ee 
curr_file=$ISIS_TABLESGEOMNMI1$CRDATE 
month _file=$ISIS_TABLESGEOMNM1$mon$year 
if [| SGEOMNM2 !=" J] 
then 
curr_file=$ISIS_ TABLESGEOMNM2$CRDATE 
month_file=SISIS_TABLESGEOMNM2$mon6$year 
fi 


SSeS eee SSeS 
# if curr_file exists (ran once) delete so program will not exit 
ee ee ————————————————— 
if [ -f SOUTDIR/S$curr_file ] 
then 
echo "removing stat out file" 
rm $OUTDIR/S$curr_file 
fi 


—————eEeEoooaoee——————eeoe—————————————————————————————————————————————— 
# to use STMPDIR, the scratch area 
————————e—eSe—eEeEeEeEeaoeaoEooaoooeeeeeoeeooaoaoaoaoaoae————————————————————————————————————— 
cd $STMPDIR 


eee —eaooaoaoaoaoaoaoaoaoaoaoaoaoaoaoaooaoe———————— 
# copy the namelist files to the scratch area 
eee oooooooo——————————————————EE— 
if [[ -f STEST_DIR/$NAMLIST_FILE] J] 
then 

cp STEST_DIR/S$NAMLIST_FILE1] $NAMLIST_FILE]1 
fi 


if [{ -f STEST_DIR/$NAMLIST_FILE2 J] 
then 

cp STEST_DIR/S$NAMLIST_FILE2 $NAMLIST_FILE2 
fi 


SS 
# execute mverif program 
oo 
if [| $VERIF_SOURCE = 'obs' ]] 
then 

print "calling verobs" 

$PROGBIN/verobs 
elif [[ SVERIF_ SOURCE = ‘anal’ J] 
then 

print "calling veranal" 

$PROGBIN/veranal 
else 

pnnt "VERIF SOURCE must be either ‘obs' or 'anal’." 

exit 8 
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fi 


a 
# append the current run's stat to the monthly stat file 
eee 
#cp $curr_file SOUTDIR/S$curr_file 

cat $curr_file >> SOUTDIR/$month_file 


SS eee 
# close up the job accounting info and clean up 
——————————————————————— ee ————————— SEL 
rm -f core 

ja -st 


# SCCS IDENTIFICATION: @(#mvenf.job 1.1 04/24/98 /h/em/hbrary/mvenif/src/job/mvenf.job_v 
# 
# CONFIGURATION IDENTIFICATION: 


& 

# SCRIPT NAME: mverif.job 

# 

# SHELL TYPE: Kom 

ff 

# DESCRIPTION: Scmpt that runs MVERIF which computes verifying stats of 
4 the models against the LLT observations or VERANAL which 
# computes verifying stats against the model analysis. 
B 

# COPYRIGHT:  (c) 1998 FLENUMMETOCCEN 

ht U.S. GOVERNMENT DOMAIN 

A ALL RIGHTS RESERVED 

ft 

# CONTRACT NUMBER AND TITLE: NONE 

if 

# REFERENCES: NONE 

& 

# CLASSIFICATION: Unclassified 

# 

# RESTRICTIONS: NONE 

# 

# COMPUTER/OPERATING SYSTEM ~— Cray UNICOS 
# DEPENDENCIES: 

B 

# LIBRARIES OF RESIDENCE: /a/ops/app/mvenif/src/job 
4 

# USAGE: qsub mvenif.job 

2 

# PARAMETERS: SMS variables needed 

# Name Description 

cE) ea Se a oe aero REO 

# ISIS_INIT ISIS init script 

# CRDATE current run dtg 


Me, 


# OPSPATH ops path 

# OPSBIN binary directory 

# PROGBIN test binary directory 

# MVERIF DIR  mvenif stat output files directory 

# GEOMNM1 geometry name (e.g., conus_nest!_appl) 
# GEOMNM2 geometry name to interpolate to 

# ISIS TABLE model name (e.g., NORAPS_ CONUS) 

# TAUI starting tau 

# TAUE finishing tau 

# TAUINC tau increment 


# 


# RETURN CODE: 


# Name Usage Description 


# curr_file IN file that contains the current run's stats 
# month file IN/OUT file that contains the month's stats 


# 


# DATA BASES: 
# Name Table Usage Description 
1 a NI G8 2 2 ooo en 


# 


# NON-FILE INPUT/OUTPUT: 
# Name Type Usage Description 


ee eee ee eee e mee eee = e2er= we SF SS SSS SS S28 SS 2 S22 22288 © ee 


# ERROR CONDITIONS: 


A 


Condition Action 


# data not found stop executing 
# curr_file not found cannot append to month _file, 


+ sends an email to group 

# ADDITIONAL COMMENTS: NONE 

# 

Hecke Rereeetcs: MIAMI NREINAINCE SECTION: oitesvsvccececzsieessdeee 

2 

# EXTERNALS CALLED: 

5 Name Description 

ese OS 

a verobs _ reads ISIS grid data, ISIS LLT data and computes 
f the models' verifying stats 

f veranal reads model forecast and analysis from ISIS gnd 
and computes the models' verifying stats 

# 

# VARIABLES 

# Name Description 

SR necccmce cae SE eee Oem 

# year 4-digit year from $CRDATE 

if month 2-digit month from $CRDATE 

A mon 3-character month (e.g., jan) 

# NAMELIST_FILE! —namelist file name for upper levels 
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+ NAMELIST FILE2  namelist file name for surface level 

4 

# METHOD: change directory to the STMPDIR and run the Fortran program 
3 verobs or veranal, copy the current run's stat file to the 

y SOPSPATH and append the current run's stat file to the 

F monthly stat file in the SOPSPATH 

y 

# RECORD OF CHANGES: 

# <<CHANGE NOTICE>> version 1.1 (29 Apr 1998) -- Kyongsuk Pace 

# initial submission 


4 

Peete roe ceie a: END EPIEOGUE te ee ee 
2: statupd.ksh 

#!/obin/ksh 


ee —l ll ————————— ee 
# inserts the model stats into the stat_db 
————eEeeEeEoeeeeeeeeeeEee——————————————————————— 
DATA_DIR=/home/pacek/data 

DB_DIR=/d/model-stats 

cd $DB_DIR 


eee 
# field separation for Empress 

—EEEoEoEooeee eee eeEeee————————————e—eeeeeee 
export MSVALSEP=" ' 


———— a  ————————— 
# is there a new data file? if so, move them 
ie —————ee———————————e———e 
if [[-a $DATA_DIR ]] 
then 
mv $DATA_DIR/*. 
else 
print "There are no data files!" 
fi 


—————— Se 
# determine which model by looking at the files that 
# ends with numeric 0 or 2 
# example: NOGAPSglobal_360x1811998021000 
ff a 
for OBJ in *[0-9] 
do 
print $OBJ 
awk '/[0-9}+/ { print $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12 }'\ 
$SOBJ > tmp 


case $OBJ in 
NOGAPSasia_nest1_app]*) 


8] 


empcmd stat_db “insert into nogaps_asia_nest]_appl from tmp;";; 
NOGAPSconus_nestl_appl*) 

empcmd stat_db “insert into nogaps_conus_nest]_appl from tmp;";; 
NOGAPSeurope_nest!_app1*) 

empcmd stat_db “insert into nogaps europe_nest]_appl from tmp;";; 
NOGAPSeurope_nest2_appl2*) 

empcmd stat_db "insert into nogaps_europe_nest2_appl2 from tmp;";; 
NOGAPSeurope_nest3_app13*) 

empcmd stat_db "insert into nogaps_europe_nest3_appl3 from tmp;";; 
NOGAPSglobal*) 

empcmd stat_db "insert into nogaps_global_ 360x181 from tmp;";; 
NOGAPSind_ocn_nest]_app!*) 

empcmd stat_db "insert into nogaps _ind_ocn_nest]_appl from tmp;";; 
NORAPS_ASIA*) 

empcmd stat_db "insert into noraps_asia from tmp;";; 
NORAPS_CONUS*) 

empcmd stat_db "insert into noraps_conus from tmp;";; 
NORAPS_EUROPE*) 

empcmd stat_db "insert into noraps_europe from tmp;";; 
NORAPS_IND_OCN*) 

empcmd stat_db "insert into noraps_ind_ocn from tmp;";; 


COAMPS_ SOUTHWEST_ASIA*) 
empcmd stat_db "insert into coamps_sw_asia from tmp;";; 
COAMPS_EUROPE*) 
empcmd stat_db "insert into coamps_europe from tmp;";; 
WAM_GLOBAL*) 
empcmd stat_db "insert into wam_global from tmp;";; 
* 
) 
print "no stat table for " S$OBJ;; 
esac 


mv $OBJ /home/pacek/backup 
done 


o: v_data.h 


! SCCS IDENTIFICATION: @(#)v_data.h 1.1 04/24/98 


! <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 


{ 
! RECORD OF CHANGES: 
! — [nitial submission 


J oi 2k 2 ok 2k of ake ok of of oe 2 2 oe 2 fe 2 2c 2 2 oie 2k 2 oie 2 2 oie oie 2k oe 2 oe 2 2 22k ok 2c of 2 of ik of 2 of ok 2 a oe 2k ot 2 2 oe 2 2 oF 2k 


{The Fortran include file V DATA will hold all the data definitions 
!used throughout the verobs and its subroutines. This will 
!help in modifying at one point if the requirement happens to 
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!change in the future. 
PEERAGE AAI IRIE IGE ERE # 


integer <::im 

integer ::jm 

integer ::ijmax_ ! 1-dim array max size 

integer § ::maxobs_ ! max num of obs 

integer ::maxprm_! max num of parameters to verify 
integer § ::maxstat ! max num of stats to vernfy 

integer § :: maxtvl ! max num of threshhold values 
integer ::maxlvl_ ! max num of levels 

Integer a0: Size 

real :: bad_value ! value for missing or bad data 

real :: check_val ! ISIS missing value checking number 


parameter(im=360) 
parameter(jm=181) 
parameter(ijmax=im*jm) 
parameter(maxobs=50000) 
parameter(maxprm=20) 
parameter(maxstat=10) 
parameter(maxtvl=20) 
parameter(maxlvl=30) 
parameter(size=5000) 
parameter(bad_value=1.E+10) 
parameter(check_val=1.E+9) 


character(16) :: crdate_val ! current run dtg value 
character(8) :: taui_val ! starting tau value 
character(8) :: taue_val ! ending tau value 
character(8) :: tauinc_val ! tau increment value 
character(32) :: modelname ! model name value 
character(32) :: geomname ! geometry name value 
character(24) :: prjnnm _! projection name 
character(16) :: vdtg ! verifying dtg, also for write 


integer ::ngeom  !C pointer for the given geomname 
integer ::ncols =! number of columns 

integer ::nrows  ! number ofrows 

integer ::itaui _—‘! integer beginning tau 

integer ::itaue =! integer ending tau 

imteger ::itauinc§ ! mteger tau increment 


4, verobs.f90 


program verobs 


CSCCS IDENTIFICATION: @(#)verobs.f901.1 04/24/98 /h/cm/library/mverif/src/main/verobs.f90_v 
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CONFIGURATION IDENTIFICATION: NONE 
MODULE NAME: verobs 


DESCRIPTION: This program verifies the model forecast fields against 
observations for various models. 


COPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


O18 Cie (2 (@) @1@ (er ekenene: 


C REFERENCES: previous verobs.f 


C 

C CLASSIFICATION: Unclassified 
C 

C RESTRICTIONS: NONE 

Cc 


C COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 
USAGE: Korn shell scnpt mverif.job 
PARAMETERS: N/A 

COMMON BLOCKS: N/A 


RHE: 
Name Unit Type Attribute Usage Description 
S$MODEL-verfil 10 FORMATTED DIRECT IN _ Contains parameter, stat 
types to compute 
$MODEL-sfeverfil 10 FORMATTED DIRECT IN _ Contains parameter, stat 
types to compute for sfc 
MODELGEOMDTG 10 FORMATTED DIRECT OUT Contains the computed stats 
(e.g., NORAPSconus_nest]_appl1996010100) for each run 


DATA BASES: 
Name Table Usage Descnption 


OE@ GQ) 'G@)7-@ 2 @)- OC) Oa@ @e@ © O 11176 OO. 2 @ 


C ISIS Gnd data Various IN Model Forecasts 

C ISIS LLT data Vanous IN Observed environmental data 
& 

C NON-FILE INPUT/OUTPUT: N/A 

c 

C ERROR CONDITIONS: 

c CONDITION ACTION 

ee ne eee ees 
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no env variables exit with code | 
err in char to integer 

conversion exit with code 2 
empty input arrays _— exit with code 3 
eIT opening output file exit with code 4 


gerd error exit with code 5 
getgeom error exit with code 6 
boundary error exit with code 7 


no ISIS Gnddata — stop executing 
no ISIS LLT data stop executing 


ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 
BOUNDARY = Computes min/max lat/lon for reading obs from LLT DB 
CH2INT Converts character to integer 
DBSTOP ISIS software that terminates database 
DTGMOD FNOC utility that increments a DTG 
EXIT System call that exits program 
LLTREAD _ Reads obs from LLT DB 
PXFGETENV _ Gets environment variable 
GETGEOM _ Gets geometry arguments to be used by other routines 
GGRD Returns ISIS info. on given geometry 
GRD Reads gridded fest fields from ISIS 
STRLEN FORTRAN function that returns string length 
F20B Interpolates fcst to obs pts 
UV2DF Converts wind w/v to direction and speed 


LOCAL VARIABLES AND Structures are documented in detail 
STRUCTURES: where they are defined in the code 
within include files. 


INCLUDE FILES: 
Name Description 


OO) TSO 1 (OY CB) (OO) (Ol (@) (OIG) iG (Gli) (@) @ leie le @leketene rene nenenenenhenene 


C COMPILER DEPENDENCIES: empef90 

@ 

C COMPILE OPTIONS: -f fixed -c 

C 

C MAKEFILE: Located at /a/ops/app/mverif/src/main/Makefile 

C UNICOS make 

C 

C RECORD OF CHANGES: 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 


Cc 
implicit none 
include 'v_data.h' 


(A IE I II OG IO RIOR IR OR EE EE 


c Local variables 
BEE A GOGO GBH IG OGG GA AG a kk 
! record type 
TYPE ver_data 
character(32) :: param 
character(24) :: dsetnm 
character(32) :: obs_param 
character(24) :: odsetnm 
character(32) :: unit 
character(24) :: typlvl 
real IvL 
character(24) :: obs_type 
END TYPE ver_data 


CF KE KE ERK EE KK KK KK KKK KE KK KK KEK KKK KK ERK KKK KKK KK EK KKK EAE EKA KKK KK KEK KEE 


larray of records 
CBS ado a Sara GG GG OBO GS GOO Gn IE aE A: 
TYPE (ver_data) verif(maxprm*maxlvl), 
Z sfc_verif(maxprm) 


character(1) :: cnul !one blank space var used to initialize 
character(8) :: seclvl !secret level returned from GRD 
character(10):: dtg !10 char long crdate_val 
character(16):: cdtg !dtgmod applied dtg, 1.e. dtg-0,12,24, etc. 
character(16):: tdtg !temp cdtg 
character(16):: stats(maxstat), sfc_stats(maxstat) !stat types 
character(24):: stdesc !storage description returned from GETGEOM 
character(24):: lvltype(maxprm), sfc_Ivltype(maxprm)!Jevel types 
character(24):: obstype(maxprm), sfc_obstype(maxprm) 

'llt seq type (raob_ qc, sfc_ ship, etc.) 
character(24):: dsetname(maxprm), sfc_dsetname(maxprm) 
character(24):: odsetname(maxprm), sfc_odsetname(maxprm) 
character(32):: parm(maxprm), sfc_parm(maxprm) !parameters 
character(32):: obs_parm(maxprm), sfc_obs_parm(maxprm) 
character(32):: units(maxprm), sfc_units(maxprm) 
character(32):: geomname2, outgeomname 
character(60):: outstats !output filename 
character(40):: namlist_filel_val, namlist_file2_val 
character(80):: title 
character(4) :: nul_ geom 


integer §:: nstat, nparm, nobs, nobstype, nlevel 


integer _:. sfc_nstat, sfc_nparm, sfc_nobs, sfc_nobstype 
integer _:: afT_size, sfc_arr_ size 

integer _ :: ktau, Itau, Istat, i,j,k, 1, m,n 

integer :: numchar, istat 
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integer _:: id, 1seq, status 


integer :: lenMODEL, lenmodelname 

integer :: lenGEOMNM, lengeomname 

integer :: lenGEOMNM2, lengeomname2 
integer :: lenTAUI, lentau_val 

integer _:: lenTAUE, lentaue_val 

integer <=: lenTAUINC, lentauinc_val 

integer :: lenCRDATE, lencrdate_val 

integer :: lnNAMLIST_ FILE], lennamlistl_val 
integer :: lenNAMLIST_FILE2, lennamlist2_val 


real :: fest(ijmax), festu(ijmax), festv(ijmax) 

real :: fest2(4jmax), festu2(jmax), festv2(i1jmax) 

real :: fu(@ymax), fv(ijmax), fdir(maxobs) 

real :: oblat(maxobs), oblon(maxobs), obval(maxobs) 
real :: newlat(maxobs), newlon(maxobs), newobs(maxobs) 
Teal :: fob(maxobs) 

real :: newfob(maxobs) 

real :: newfu(ijmax), newfv(ijmax) 

real :: level(maxlvl), sfc_level(maxlvl) 

real :: orlgx, orgy, parm1, parm2, parm3, xintdis, 

2 yintdis, minlat, maxlat, minlon, maxion 

real :: xIvl, level_ 2, paknul 

real :: tval, sfc_tval 

real :: bias, rms, std, ancor 

real :: ftau !float tau 


double precision :: onglat, onglon 


CF FFEEEEERE RE LELERLELAE EEE ELELELAEELELALEELELLAE FELE LER LET REPKE ET KEKE KKH 


c Function 
CER dO GGG GOR aa oki dokaiok ok i 


integer strlen 


OF FEE A oe a te oe ee ee ee ee ee EE RE EE 


c Data Initialization 
CF FE Oe EE Ee ee ee EE Ee A EE KE KE EE 


datacnul /'/ 

data Istat /10/ 

data paknul /10.e10/ 
data level _2 /0.0/ 


CoG OGG GOO GG Ga Ga IG a ara a kak a a a ak ak ak ar 


c Namelists 
OFF RR EE EE OE EE EE EE EE EE OR A EE EE EE EE EE EEK OK EK 


namelist /verlst/ parm, dsetname, obs_parm, odsetname, 
2 units, lvltype, obstype, level, stats, ‘val 


namelist /sfclst/ sfc_parm, sfc_dsetname, sfc_obs_parm, 
2  sfc_odsetname, sfc_units, sfc_lvltype, 
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2 ~ sfc_obstype, sfc_level, sfc_stats, sfc_tval 


CF FEF EE FEE KK KK EK KKK KK KE KKK KKK KE KEK EEK KKK RK KKK KEK EEE KEE RE KEKE RARE KEES 


¢ initialize some var 
CREEK KKK KE KK KKK KEKE KEKE EAE EAA AERA EKER AK EKA KK KEKEKEEKA KEE K AK KEKE KEKEKSE 
crdate_val(1:16) = cnul 
dtg(1:10) = cnul 
cdtg(1:16) = cnul 
seclv] = 'UNCLASS' 


CF FE REE KKK KEE KEKE KAR KKK KKK KK KKK KEKE KEE ERK HK KKK K KEKE KA KKK EE EK EK KH 


c¢ Get the environment variables that are set in the job script, 

¢ CRDATE, TAUS, TAVE, TAUINC, MODEL, GEOMNM, DATASET1, DATASET2, 

¢ NAMLIST_ FILE] and NAMLIST_FILE2. 

CFF EEE KE KK KKK KKK EK KKK KEE KE KE KK EK KKK KAKA KEK KEKE EKK AEE KKK KKK KEE KS 
namlist_ filel_val = cnul 
namlist_file2_val = cnul 
geomname2 = cnul 


CALL PXFGETENVC(ISIS_ TABLE’, lenMODEL, modelname, lenmodelname, 
Z istat) 
if (istat .ne. O) then 
write *, "MODEL is unspecified" 
CALL EXIT(1) 
end if 


CALL PKFGETENV(‘(GEOMNMI', lenGEOMNM, geomname, lengeomname, 
2 istat) 
if (istat /= 0) then 
write *, "GEOMNM1 1s unspecified" 
CALL EXIT(1) 
end if 


CALL PXFGETENV(‘(GEOMNM2’, lenGEOMNM2, geomname?2, lengeomname?2, 
2 istat) 
if (istat /= 0) then 
write *, "No second GEOMNM 1s specified” 
end if 


CALL PXFGETENV(‘TAUI', lenTAUI, taui_val, lentaui_val, istat) 
if (istat /= 0) then 

write *, "TAUI 1s unspecified" 

CALL EXIT(1) 
endif 


CALL PXFGETENV(‘TAUE', lenTAUE, taue_val, lentaue_val, istat) 
if (istat /= 0) then 

write *, "TAUE is unspecified" 

CALL EXIT(1) 
endif 


CALL PXFGETENV(‘TAUINC', lenTAUINC, tauinc_val, lentauinc_val, 
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2 istat) 

if (istat /= 0) then 
write *, "TAUINC is unspecified" 
CALL EXIT(1) 

endif 


CALL PXFGETENV('‘CRDATE’, lenCRDATE, crdate_val, lencrdate_val, 
Z istat) 
if (istat /= 0) then 
write *, "CRDATE is unspecified" 
CALL EXIT(1) 
endif 


CALL PXFGETENV(‘'NAMLIST_FILE1', lenNAMLIST_FILE1, 
yw) namlist_filel] val, lennamlist1_val, istat) 
if (istat /= 0) then 
write *, "NAMLIST_FILE] is unspecified" 
endif 


CALL PXFGETENV(‘'NAMLIST_FILE2', lenNAMLIST_FILE2, 
y ‘namlist_file2_val, lennamlist2_val, status) 
if (status /= 0) then 
write *, "no second namilist file." 
endif 


if (istat /= O .and. status /= 0) then 
write *, "cannot continue without the namlist files." 
CALL EXIT(1) 

endif 


4 AR a a 2 2 a 2 ae a 2 ie 2 Ee oe 2 ee 2 ee 2 ee 2 2 2 2 oe ee 2 ee 2 2 2 2 2 ee 2 a I ae 2 2 a a A a Bk Ok 


C 
Cc 
Cc 
Cc 


get ISIS info on the given geometry by calling GGRD 
geom 1s defined as a SMS env var 

will add the capability to add the geom info in the future 
when the geom info is not defined in ISIS 


8 AB A a a 2 a 2 2 2 2 a 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Ee 2 2 2 2 2 oe ee 2 2 a a a oo oe aK oo EE 


CALL GGRD(geomname, ngeom, istat) 

lif geom 1s not defined then exit the program 

if (istat .ne. 0) then 
write (0,'("undefined geom, gerd returns istat =",15)’) istat 
CALL EXIT(S5) 

end if 


print *, ‘taui=', taui_val, ' taue=', taue_val, 
Z " tauinc=", tauinc_val 

print *, ‘model=', modelname 

print *, 'geomnm=', geomname 


CF A A A ee 2 OO ea 2 a eo 2 2 2 2 2 2 OE ee 2 2 2 2 2 2 OE 2 2 oe ee 2 2 2 2 2 OE OK OE OF 


C 


need to convert tau info to integers 


CE a 2 2 2 2 2 2 2 eo oe ae ae 2 a 2 ae ae 2 oe 2 2 2 2 2 2 2 ee a oe oe oe OO OK OF 


CALL CH2INT(taui_val, itaui, istat) 
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if (istat .ne. 0) then 
write (0,'("ch2int on TAUI returns istat =",15)') istat 
CATE BxXIl(2) 

end if 


CALL CH2INT(taue_val, itaue, istat) 

if (istat .ne. 0) then 
write (0,'('ch2int on TAUVE returns istat =",15)’) istat 
CALL EXIT(2) 

end if 


CALL CH2INT(tauinc_val, itauinc, istat) 

if (istat .ne. 0) then 
write (0,'("ch2int on TAUINC returns istat =",15)') istat 
CALL EXIT(2) 

end if 


EEE EEE EEE TE EEE EE EEE EET TEE TE EET EEE EEE ETT ee 
c Initialize the arrays 
C¥EFEEEE ERE EEK EEE EEK EAE EEK E ELE ELERE EEK EE EK EEK KEE EEE EEE EEE EAKKEE HEE EEK EE 
do m=1, maxprm 

parm(m) = cnul 

dsetname(m) = cnul 

odsetname(m) = cnul 

units(m) = cnul 

lvltype(m) = cnul 

sfc_parm(m) = cnul 

sfc_dsetname(m) = cnul 

sfc_odsetname(m) = cnul 

sfc_units(m) = cnul 

sfc_Ivltype(m) = cnul 


obstype(m) = cnul 
sfc_obstype(m) = cnul 
end do 
do m=1, maxlvl 


level(m) = paknul 
sfc_level(m) = paknul 
end do 


do n=1, maxstat 


stats(n) = cnul 
sfc_stats(n) = cnul 
end do 


CAAA GGG I Hi 


!Open and read the NAMLIST_FILE1 into the arrays for parm, 
lunit, lvl_type, level_1, and obs_type 


!determine the number of parameters and number of levels 


!number of stats and number of obstype 
!determine the array size 
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CORR RR RR RRR IR ROR IR OR ORR RE RE 
if (namlist_filel_val /= cnul) then 
open (unit=Istat,file=namlist_filel_val,form='formatted’, 
Z status='old' ,1ostat=1stat) 
if (istat .eq. 0) read(stat, nml = verlst) 


CEE AE A RR EE RE EI IO EE OR EO OR 


c Finish setup, the arrays, stype, tval, typlvl, units are changed 

c¢ to 1-dimension and will not change throughout the program so that 
c they can be used for multiple parameters which 1s a change from 

c the onginal program. 


ABA RG Riga aR Rk 


c Determine the number of parameters 
CASS GHG IG GGG GOOG Goa aaa io aa Ia r 
nparm = 0 
do while (parm(nparm+1) .ne. cnul .and. nparm .lt. maxprm) 
nparm = nparm + | 
end do 


if (nparm .eq. 0) then 
write (0,'("No verification parameters specified")') 
c CALL EXIT(3) 
end if 


(5 EE A CO A A ER RE 2 2 ER RR 2 a a 2 oO a a oo 


c Determine the number of levels 
(FE EEE ER He eR EE ER OR EE RE KE EE EE EE 


nlevel = 0 

do while (level(nlevel+1) .ne. paknul .and. nlevel .lt. maxlvl) 
nlevel = nlevel + 1 

end do 


if (nlevel .eq. 0) then 
write (0,'("No verification levels specified.")') 
Cc CALL EXIT(3) 
end if 


CFF FER ERK EK KKK KKK KK KKK HK KKK KKK KK EK KKK RK KK KKK KK KK KK KK KEKE KK KKK KKK RK EF KK FF 


c Determine the number of stats 
BA GG a Ga aa ak ke Ra 
nstat = 0 
do while (stats(nstat+1) .ne. cnul .and. 
2 nstat .lt. maxstat) 
nstat = nstat + 1 
end do 


if (nstat .eq. 0) then 
write (0,'("No statistics are requested.")’) 
c CALE dG) 
end if 


end if !namlist_filel exists 


Ak 


Gitttititit ttt tht tt TP Tt eS 


c if NAMLIST_FILE2 exists, read it and put into the arrays for 
c the surface 
CAE GG GHGS IGF GIGI SOI AI IOI a AG AICI ICR a A a ak a A a a ak A ak 
if (namlist_file2 val /= cnul) then 
open (unit=Istat, file=namlist_file2_ val, 
2 form='formatted', status='old', iostat=istat) 


if (istat .eq. 0) then 
read(Istat, nmi = sfclst) 
sfe_nparm = 0 
do while (sfc_parm(sfc_nparm+1) .ne. cnul .and. 
Z sfc_nparm .It. maxprm) 
sfc_nparm = sfc_nparm + 1 
end do 
sfc_nstat =O 
do while (sfc_stats(sfc_nstat+1]) .ne. cnul .and. 
Be sfc_nstat .It. maxstat) 
sfc_nstat = sfc_nstat + 1 
end do 
if (sfc’_nstat .eq. 0) then 
write (0,'("No statistics are requested in sfc.")') 
C CALL EXIT(3) 
end if 
end if !if namlist_file2 was read successfully 
end if !if namlist_file2 exists 


CF HERA ARR KK HR HR Re A A A A Oe A a EE EE KE 


C array size based on the namilists 

A A A A A A KE KK KE EK EK 
arr_size = nparm*nlevel 
sfc_arr_size = sfc_nparm 


CF EH KE RE Ob EO OO A OO Oo OO OE 


'Fill the arrays of records from the parm, unit, Ivl_type, 
'level_1 and obs_type arrays 
CFA AAA A AK A A A A A A A A A A eA A A A A a OO OF OF 
l=] 
if (arr_size .gt. 0) then 
do1=1, nparm 
do j = 1, nlevel 
verif(1)Yeparam = parm(i) 
verif(1)%dsetnm = dsetname(1) 
verif(1)%obs_param = obs_parm(1) 
verif(1)“%odsetnm = odsetname(i) 
verif(])Younit = units(1) 
verif(1)%typlvl = Ivitype(i) 
verif()%lvi_1 = level(j) 
verif(1)Yoobs_type = obstype(1) 
l=]+] 
end do 
end do 


oe 


end if 


CORREA RAGGA GEG AG a a Rb a Kk: 


add the sfc stuff to the verif array 
CF FE KAA KK KK KK KKK AK HK HK AHA HK HHH HK HK HK KK KK RK KK KK RK RK KEK EE EK KE KEK KK 
if (sfc_arr_size .gt. 0) then 
arr_size = arr_size+sfc_arr_size 
doi=1,sfc_nparm 
verif(1)Yoparam = sfc_parm(1) 
verif(1])Yodsetnm = sfc_dsetname(1) 
verif(])%obs_param = sfc_obs_parm(1) 
verif(1)“%odsetnm = sfc_odsetname(1) 
verif(1)Younit = sfc_units(1) 
verif(1)Y%otyplvl = sfc_lvltype(1) 
verif(1)%lvl_1 = sfc_level(1) 
verif(l)Y%obs_type = sfc_obstype(1) 
]=1]+] 
end do 
end if 


CF EE A OO A A AE OE OE OA oe OE A Oe 2 EK EA OE KE KO Kk KK 
!get geom info 

CE EE A A EE 2 EE OE EE 2 EE Ee EE AE EO EE OE OE EE EK 2 KO OO EO EK EE 
CALL GETGEOM(ngeom, prjnnm, stdesc, ncols, nrows, 
2 origlat, origlon, origx, origy, xintdis, 
3 yintdis, parml, parm2, parm3, istat) 


if (astat .ne. 0) then 
write (0,'("getgeom returns istat =",15)') istat 
CALL EXIT(6) 

end if 


CEE EF EE EE EE OE OE A OK EE OK OK eB EE A OE OK OO KO OF OO KK 


c Determine min/max lat/lon to use in obs read 

FFE EE A A EE ER EE EK EE A OK OE OE OE EE A 2 2 EE a OE EO 2 OE OE OE KK EF 
CALL BOUNDARY (ngeom, nrows, ncols, muinlat, 
2 maxlat, minlon, maxlon, istat) 


if (istat .ne. 0) then 
write (0, '("cannot find min/max lat/lon")') 
CALL DBSTOP 
CALL EXIT(7) 

end if 


EEE EE EE EE EE EE EE EE EE EE EE AE A A EE AE OK EK 2 ae 2 2K 2 2 A a OE EO 2 EE OK KE KE 


c The output file, use modelname, geomname and crdate_val 
EE EE ER ER EE ER EE ER AEE A 2 a EE 2 Ee EE 2 EE 2 oe a oR A 2 a 2 a a 2 a A a 2 O22 OE 2 EEK OF 2K 
] = strlen(modelname) 
outstats( 1:1) = modelname(1:1) 
if (geomname2 == cnul) then 
numchar = strlen(geomname) 
k =] +numchar 
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outstats(1+1:k) = geomname(] :numchar) 
else 

numchar = strlen(geomname2) 

k = 1 + numchar 

outstats(1+1 :k) = geomname2(1 :numchar) 
end if 


outstats(k+] :k+10) = crdate_val 
write (0,'("output file name =", a50)’) 
2  outstats(1 :strlen(outstats)) 


open(unit=]stat,file=outstats(1 :strlen(outstats)), 
2 form="formatted',status='new',iostat=istat) 


if (istat .ne. 0) then 
write (0,'("istat = ", 15)') istat 
write (0,'("Cannot open output file for stats")’) 
CALL EXIT(4) 

end if 


CF FEF EK AK KEK KKK KKK KEKE KKK EK KKK KKK EEK KE EK KKK KKK K KEK KEKE KKK EEK EEE 


c White the header in the output file 


(oe 2 2 ee fe ke fe 2 ee i EE EE EE EEK EEE EE 


write (Istat,'(" vdtg "," numobs ", 
"9 param ss UL unit oe 
"geometry ", 


paleveliypes 4°) level |’, 
"tau", "stat type "," stat val ", 
" V_src a " obs_type oy 


An & W LO 


A A A ee ee ee ee a 


c for each parameter and level, read obs from LLT DB 
C* KE ER KE EK RE KE EEE EK KE EE A EE EE EE EE EE ERE KK AKER AKA AK AE KEKE ERE 


dtg(1:10) = crdate_val(1:10) 


do i=1, arr_size 
write (0,'("parm = ",a32)") verif()%param 
write (0,'("unit = "jal 0)') verif)Y%ounit 
write (0,'("type lvl = ",a10)') verif()%typlvl 
write (0,'("Ivl 1 =",f8.1)') venfG)%lvl_1 
write (0,'("obs type = ",a15)") verif@)%obs_type 


CALL LLTREAD(verif(i)%obs_type, verif(i)%obs_param, 


2 verif(i)Yelvl_1, verif(i)%odsetnm, 
3 dtg, muinlat, 

4 maxlat, muinion, 

5 maxlon, verif(i)%typlvl, 

6 oblat, oblon, 

7 nobs, obval, 

8 1Stat) 


write (0,'("nobs = ",16)') nobs 
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if (istat /= 0 .or. nobs == 0) then 
go to 100 
end if 


25 E22 2 2 2 2 2 EE 2 2 22 2 EF 2 222 Ef 


c for each tau read the fest, interpolate the fest to obs 
Cc compute the stats and output the stats. 
(98 2 9 EE 2 2 2 2 2 2 2 2 EE 2 2 22 2 2 2 EI a 2 2A Oa a 2 2 


do ltau = itaui, itaue, itauinc 


'determine the correct dtg table to read 
CALL DTGMOD (dtg, -ltau, cdtg, istat) 
if (istat /= 0) then 

go to 200 
end if 


OF EEE EE EO EE Oe ee 2 Ee a ee ee 2k ee 2 ae a 2 2 2 eK 2 2 ee 2 2 ae Ee OE OE 2 Oe OF a OF 


ISIS has tables for 00 and 12 only, therefore if we need 
to read other tau model forecasts, e.g., 3,6, 9, 15, 18, 21 
etc., we need to read 12 hour old table 
if cdtg ends with anything other than 00 or 12 then 
use -12 ISIS table dtg 
(96 2 92 2 2 2 2 2 EE 2 2 2 2 EI a a a A EE A 
if (cdtg(9:10) /= '00' .and. cdtg(9:10) /='12') then 
CALL DTGMOD (tdtg, -12, cdtg, istat) 
if (istat /= 0) then 
write *, "'DTGMOD error for tau ', ltau 
go to 200 
end if 
else 
tdtg = cdtg 
end if 
write (0,'CISIS table dtg =",a10)') cdtg 
write (0,'("tau =",15)') ltau 
ftau = Itau 


00 08 2 0 


OF EE OF EE OE OE OE 2 OE EE 2 EO 2 2K Ee 2 a 2 Ee 2 Eo 2 2 2 2 2 Ee 2 2 2 2 2 2 a Ee 2 oe OF 


C if everything 1s OK, then read the forecast 

C (gridded data) by calling ISIS GRD 

c ISIS grid does not have wnd_spd, therefore have to 

Cc read wnd_ucmp, wnd_vemp then compute wnd_spd 

28 2 2 2 2 2 2 2 2 2 2 Ef EE 2 2 2 2 2 2 2 2 2 2 EE 2 EE a 2 EE a 


if (verif(i)Yoparam == 'wnd_ spd’) then 


Cc read forecast for wnd_ucmp: ISIS grid data 


CALL GRD(modelname, geomname, 
verif(i)Yodsetnm, 'wnd_ucmp', 
verif(i)Yotyplvl, verif(i)%lvi_1, 
level 2, cdtg, 
ftau, verif(i)Younit, 


WM & Wh 


2S 


QO 0 6 


Q 0200 2 4 


os} OV 


om N MN & W bo 


festu, title, 
seclvl, id, 
iseq, status) 
if (status /= 0) then 
go to 200 
end if 


read forecast for wnd_vemp: ISIS grid data 


CALL GRD(modelname, geomname, 
verif(i)%dsetnm, 'wnd_vcmp', 
verif(i)“%typlvl, verifi)%lvl_1, 
level_2, cdtg, 


ftau, verif(i)Youmit, 
fcstv, title, 
seclvl, id, 
iseq, status) 
if (status /= 0) then 
go to 200 
end if 


first interpolate into another geometry if the second 
geometry is requested 


if (geomname2 /= cnul .and. geomname2 /= geomname) then 
CALL INTGEOM(geomname, geomname?2, 1jmax, fcstu, 
festu2, istat) 
if (stat == 0) festu = fcestu2 
CALL INTGEOM(geomname, geomname2, 1jmax, festv, 
festv2, istat) 
if (istat == 0) festv = festv2 
CALL GGRD(geomname?2, ngeom, istat) 
end if 


interpolate forecast into obs points, then 
convert wnd_ucmp and wnd_vemp to wnd_spd by calling 
uv2df 


CALL F2OB(ngeom, fcstu, oblat, oblon, nobs, fu, istat) 
CALL F2O0B(ngeom, festv, oblat, oblon, nobs, fv, istat) 


ABA AGGIE IG AAG GIGI Kk ak kok aa 


Cc 
Cc 


if fest had any missing value, f2ob fills fob with 
-999 which needs to be disregarded in the conversion 


CBA GAGGIA a I kk: a1 2 


k=0 
do j=1, nobs 
if (fu(j) = -999 .and. fvq) ~ 999) then 
k=k+1] 
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newfu(k) = fug) 
newfv(k) = fvq) 
end if 
end do 
CALL UV2DF(newfu, newfyv, nobs, fdir, fob) 


FE 2 Oe Oe Oe Oe 2 Ee ee 2 2 2 2 2 2 ee ee oO OE EE EK 


c If the parameter 1s other than winds, 
c call GRD only once 


Meter EEE EPP PPP ee ee ee Le 


else 


read forecast: ISIS grid data 


‘@) 


CALL GRD(modelname, geomname, 
verif(1)%odsetnm, verif(1)%param, 
verif(i)%typlvl, venfa)%lvl_1, 
levela2: cdtg, 
ftau, verif(a)Younit, 
fest, title, 
seclvl, 1d, 
iseq, status) 


COM DNWUN SW LD 


if (status /= 0) then 
go to 200 
end if 


first interpolate into another geometry if the second 
geometry 1s requested 


Oo 08 2 4 


if (geomname2 /= cnul .and. geomname?2 /= geomname) then 
CALL INTGEOM(geomname, geomname2, 1jmax, fest, 
2 fcest2, 1stat) 
if (istat == 0) fest = fest2 
CALL GGRD(geomnamez2, ngeom, stat) 
end if 


CFE A EK EE Ke OE EE EE KE KK EK KK 


linterpolate fcst into obs pts 
CREEK HK KK KK HH EO A A Oe He OE OE EE OE OE KE EE EE EE HE 


CALL F20B(ngeom, fest, oblat, oblon, nobs, fob, istat) 
if (astat /= 0) then 

go to 200 
end if 


end if !param test 


OF EE EE EE Oe OO ee OE 2 2 2 ea Oe ie oe ee ee 2 ee 2 ae ee 2 2 oe Oe oe Oe EE 


Cc if fcst had any missing value, f2ob fills fob with 
Cc -999 which needs to be disregarded in the stat computations 


oF 


FF EE EE EE EE EK EK EK KK KK KKK KK KK KK KK KK 
k=0 
do j=1, nobs 
if (fobG) /= -999) then 
k=k+] 
newfob(k) = fob(j) 
newlat(k) = oblatq) 
newlon(k) = oblon(j) 
newobs(k) = obval(j) 
end if 
end do 
write (0,'("writing the Ist 15 lat,lon,obs,fcst.")') 
write (0,'(15,4f10.2)') (n,newlat(n),newlon(n),newobs(n) 
Z snewfob(n), n=1,15) 


CF HEE FH KK KK KK EK EK KK KK EH KH KK HHH HHH HK HK HH HK KH KK HK KH HK KF 


!compute the stats 


!for obs, disregard the projection 
COE IACI ICCC IAA IAAI EEE EF 


nul_ geom = 'NONE' 


FE EO OO A A ee a a Oe 


Cc if there was no NAMLIST_FILE1, then use the stats 
c from NAMLIST_FILE2. For ocean models 
CFF FRKK KK KH KA KH KKK KKK KAKA KAA KK KKK KAKA AA KKK KAA EKA KKK KE AKA AA AKA HH KKK KKK AK 
if (nstat == 0) then 
nstat = sfc_nstat 


do j = 1, nstat 
stats(j) = sfc_stats(j) 
end do 
end if 


if (geomname2 /= cnul) then 
outgeomname = geomname2 
else 
outgeomname = geomname 
end if 


do j = I, nstat 
if (stats(j) == ‘bias’ .and. k /= 0) then 
CALL COMPUTE_BIAS(newfob,newobs,k,nul_geom,bias) 
!write the stats to the output file 
write (Istat, 1000) dtg, k, verif(i)Yoparam, 
verif(i)Younit, 
outgeomname, verif(i)%typlvl, 
verif(i)%lvi_1, Itau, 
stats(j), bias, 
verif(1)%eobs_type 
write (0,'(a30, 2a15,f10.2)") verif(i)%obs_type, 
2 verif(i)Yoparam, stats(j), bias 


NM & Wb 
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else 1f (stats() == 'std' .and. k /= 0) then 
CALL COMPUTE_STD(newfob, newobs, k, nul_geom, std) 
write (Istat, 1000) dtg, k, venifG)“%eparam, 
verif(i)Younit, 
outgeomname, verif(i)“%typlvl, 
verif(i)“%elvi_1, Itau, 
stats(j), std, 
verif(i)Y%eobs_type 
write (0,'(a30, 2a15,f10.2)') verifG)%obs_type, 
2 verif(i)Yoparam, stats(j), std 


NM & W bd 


else if (stats(j) == 'rms' .and. k /= 0) then 
CALL COMPUTE _RMS(newfob, newobs, k, nul_ geom, rms) 
write (Istat, 1000) dtg, k, verif(i)%param, 
verif(i)Younit, 
outgeomname, verif(i)%typlvl, 
verifG)%lv1_1, ltau, 
stats(j), rms, 
verif(i)Yoobs_type 
write (0,'(a30, 2a15,f10.2)") verif(i)Yoobs_type, 
2 verif(i)Yoparam, stats(j), rms 


NM” & W bL 


else if (stats(j) == 'ancor' .and. k /= 0) then 
CALL COMPUTE_RMS(newfob,newobs,k,nul_ geom,ancor) 
write (Istat, 1000) dtg, k, verif(i)%param, 
verif(i)Younit, 
outgeomname, verif(i)%typlvl, 
verif(i)%olvl_1, Itau, 
stats(j), ancor, 
verif(i)%obs_type 
write (0,'(a30, 2a] 5,f10.2)") verif(i)%obs_type, 
2 verif(i)Yoparam, stats(j), ancor 


o00o000UmUONCUCOCUCOU OO 
NM” & W LO 


!other stat types ... 
end if 
end do !do j=1,nstat 
200 continue 
end do !Itau loop 
100 continue 
end do ! 1=1,arr_size loop 


1000 format (a1 0,16,1x,2a15,a30,al1 5,f8.2,15,1x,al 2,f8.2,' obs',1x,al 5) 
close(istat) 
CALL DBSTOP 
stop 'Normal End’ 
CALL EXIT(O) 
end 


2S: boundary.f90 


subroutine boundary(ngeom, nrows, ncols, muinlat, 


a2 


2 maxlat, minlon, maxlon, istat) 


C SCCS IDENTIFICATION: @(#)boundary.f90 1.1 04/24/98 /h/cm/library/mvenf/src/sub/boundary.f90_v 
C 

C CONFIGURATION IDENTIFICATION: NONE 

C 

C MODULE NAME: boundary 


QO 


C DESCRIPTION: This subroutine computes the minimum and maximum 
latitude and longitude for reading observations 
from ISIS LLT database. 


COPYRIGHT: (c) 1996 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


Cri Ore 0) 


C REFERENCES: NONE 


© 


C CLASSIFICATION: Unclassified 

e 

C RESTRICTIONS: NONE 

Ce 

C COMPUTER/OPERATING SYSTEM 


C DEPENDENCIES: Cray UNICOS 

C 

C LIBRARIES OF RESIDENCE: /a/ops/bin 

Cc 

C USAGE: 

C call boundary(igeom, nrows, ncols, munlat, 

C maxlat, minlon, maxlon, istat) 

C 

C PARAMETERS 

C Name Type Usage Description 

(San nr aes, a eae cee 

C NGEOM INTEGER INPUT Geometry info. 

C NROWS INTEGER INPUT No. of rows 

C NCOLS INTEGER INPUT No. of columns 

C MINLAT REAL OUTPUT Minimum latitude 
C MAXLAT REAL OUTPUT Maximum latitude 
C MINLON REAL OUTPUT Minimum longitude 
C MAXLON REAL OUTPUT Maximum longitude 
CGeISTAr INTEGER OUTPUT Return status 

ec 

C COMMON BLOCKS: N/A 

c 

C FILES: N/A 

c 

C DATA BASES: N/A 


100 


& 
C NON-FILE INPUT/OUTPUT: N/A 


C 

C ERROR CONDITIONS: 

(e CONDITION ACTION 
a 
C Error return from VXYLL Pmt err message 
C 


C ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 


MAXVAL Returns maximum value from an array 
MINVAL Returns minimum value from an array 
VXYLL Computes arrays of lat/lon from arrays of x/y 


LOCAL VARIABLES AND Structures are documented in detail 
STRUCTURES: where they are defined in the code 
within include files. 
METHOD: 1. Fill in the working arrays, x & y, with values for left, 
right, bottom & top boundanes. 


2. Call vxyll to get lat/lon from x & y. 
3. Find the mimimum & maximum latitude & longitude. 


INCLUDE FILES: NONE 
COMPILER DEPENDENCIES: f90 


COMPILE OPTIONS: -f fixed -c 


Cerner et@ @ One MMO GOON AOAOAAAAN 


C MAKEFILE: Located at /a/ops/app/mverif/src/sub/makeverobslib 

C UNICOS make 

g 

C RECORD OF CHANGES: 

c 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 

C  Ongimal Programmer: M.A. Rennick 


implicit none 


PRG OR OR IIR FOI I IIR IE IOI I ok ak 22 3 ake ake akc ake a a ake ie ak a ke ake a ake a ake ak 


! parameters 
[SC RS ok i ak a ak ak a ae a CORR So a aC CS oo af ok aE fa a ak a a a a oak ak ak a ae a ok fea ak ak 


integer, intent(in) ::ngeom ! geometry 
integer, intent(in) :: nrows ! no of rows 
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integer, intent(in) :: ncols ! no of columns 
real, imtent(out) :: minlat ! min lat 

real, intent(out) :: maxlat ! max lat 

real, intent(out) :: minlon ! min lon 

real, intent(out) :: maxlon ! max lon 
integer, intent(out) :: stat ! return status 


BER ICR OOOO I AIO II IAI GRA: 


! Jocal variables 
ke EE KE KE HK AH EE EE EE EE EK EEK EK EE EEK EAK KEKE KEKE FEE KF FE 


integer :: len ! array size 
integer ::1 ! dummy loop var 
integer :: n ! temp var to hold array value 


real :: x(2*nrows +2*ncols) ! working array |st dimension 
real :: y(2*nrows + 2*ncols) ! working array 2nd dimension 
real :: lat(2*nrows + 2*ncols) ! latitude array 

real :: lon(2*nrows + 2*ncols) ! longitude array 


PEI OR I IOS I I OO OR a ae 


! for left boundary 
[Fee FEE TEE ETE T ESET ETE SERRATE EE TEAST ASAE TERE TETAS ee eT TT Eee 
do 1=1, nrows 
x(i) = 1 ! all x value at the left boundary is 1 
y(i) =1! y value at the left boundary 
end do 


I 2k 2 oie 2 oie 2 oc 2 2 ie oe a 2 2 2 2K 2K a 2 2 2 2 2 2K ok 2 a 2 2 2 2 2 2 2 2 OE OE 2 2K 2 OK RK EO OK OK EOE OK OK OE KE KEK 


! for nght boundary 


Ertrtttttittrtrteririrreric rr rrr rer Tire rT ree ee eee TE EEE ee Se 
n=0 ! initialize the temp var 
do 1=nrowst!, 2*nrows 
x(i) = ncols ! all x value at the nght boundary 
n=n+1 
yii)=n_ ! y value at the nght boundary 
end do 


BR EE a a oe OE CI EE Ke OE OE 3 EE ff HE HE EE HE I I EE EE EE EO fe of oi a OE 2 EE oe 2 2 2 


! for bottom boundary 
Ritttitttitriircrrtiriririrrri rir re rere Terre ree ee eee ere 


n=O ! imtialize the temp var 
do 1=2*nrows+!, 2*nrows+ncols 
n=nt+] 
x(i)=n_‘! all x value at the bottom boundary 
y(i)= 1! y value at the bottom boundary 
end do 


| 2 2 OK 2 oR 2 2 oi OE OE EE OE EE EK EK OK EE KK OK KE EE EE EK EK OK EK EK EK 


! for top boundary 


J RE Ee ae ee ee fe 2 2 I ee 2 Ee ee Ee 2 2 2 2 EE 2 ee EE ee ee ee ee EO OE kk Ok EE EE 


n=O ! initialize the temp var 
do 1=2*nrowstncolst! , 2*nrowst2*ncols 
n=n+] 
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x(1) =n ~_‘'! all x value at the bottom boundary 
y(1) = nrows ! y value at the bottom boundary 
end do 


PEAR IIIA IRI I IORI ICICI III I I I AAR ICAI I A II I a a ak a a ok a aE a AE eke Hk 


! call vxyll to get the lat/lon from x/y 


PEE A A CAC CI CREE EE ICI 2 ICICI 2 IC CA ICI EE oo 2 a 


len = 2*nrows + 2*ncols 
call vxyll(ngeom, len, x, y, ‘d’, lat, lon, 1stat) 
if (istat .eq. 0) then 


1 > 2 2 oe oe 2 ok 2 2 2 ok 2 ok ok 2k 2K ok oi 2 ok 2 i 2 2k 2 oi 2 ke i ee 26 26 ie ke 2 8 26 2 2c 2c 2c 2c ok 2 oc 2 fe 26 i 28 ok 2 ok 2k 8 oe 2 


! get the min/max Jat/lon 


[2 2 2 ke he he he of fe fe he fe 2k fe fee 2 2 2 2 ee 2 2 ie he ee ee ke ie ee 2 2 2 2 ee Oe oO A ek EE EE OE EE 

miniat = minval(lat) 
maxlat = maxval(lat) 
minion = minval(lon) 
maxlon = maxval(lon) 

else 
write (*,'("vxyll returns istat =",15)') stat 

end if 


retum 
end subroutine boundary 


6. f2o0b.f90 


subroutine f20b(igeom.field,obslat,obslon,nobs,fob,istat) 


SCCS IDENTIFICATION: @(#)f20b.f90 1.1 04/24/98 /h/em/library/mvenif/sre/sub/f20b.f90_v 
CONFIGURATION IDENTIFICATION: NONE 
MODULE NAME: f2ob 


DESCRIPTION: This subroutine interpolates forecast field values to 
observation locations. 


COPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


@ON@ SONG (GUO GUS (OOS) CACt0 Glee: 


C REFERENCES: NONE 


OD 


C CLASSIFICATION: Unclassified 
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c 

C RESTRICTIONS: NONE 

C 

C COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
call f20b(geom,field,obslat,obslon,nobs,fob,istat) 


see oceee2ea= es ee=eeeece = seeeseae see ecee ees ee eee eee eae em em ewe ee wee 


IGEOM INTEGER INPUT Geometry info. 

REAL INPUT Forecast array to interpolate 
OBSLAT REAL INPUT Obs. latitude 

OBSLON REAL INPUT Obs. longitude 

NOBS INTEGER INPUT No. of observations 

FOB REAL OUTPUT Fest interpolated to obs array 
ISTAT ° INTEGER OUTPUT Return status 


COMMON BLOCKS: N/A 


FILES: N/A 


COO @ueeG) Qu O:@. Ot) OO GOO 0 OO 
+r 
S 
0 


C DATA BASES: N/A 


VLLXY Computes arrays of x/y from arrays of lat/lon 


C 

C NON-FILE INPUT/OUTPUT: N/A 

C 

C ERROR CONDITIONS: 

Cc CONDITION ACTION 

Go Ae ee eee ee 

C Unsuccessful getgeom Print err message and exit 

Ec 

C ADDITIONAL COMMENTS: NONE 

C 

Ce PIAINPEINANCE SECTION. 5 3:i.csee..cieacsszsssuscsecacs 

(6 

C MODULES CALLED: 

C Name Description 

ea 6 net 

€ EXIT System call that exits program 

(S FINTRP FORTRAN sub. that interpolates within a field to 

C obtain values at an array of points 

c GETGEOM _ Gets geometry arguments to be used by other routines 
€ IMAXCV FORTRAN function to determine max. Ist dimension 
Cc of array 

c JMAXCV FORTRAN function to determine max. 2nd dimension 
C of array 

Cc 

Ec 
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LOCAL VARIABLES AND Structures are documented in detail 


STRUCTURES: where they are defined in the code 
within include files. 


METHOD: 1. Call getgeom. 


2. If successful getgeom, determine max. Ist & 2nd dimensions 
of the array using imaxcv/jmaxcv. 

3. Call vilxy to convert from lat/lon to 1. 

4. Call fintrp to interpolate. 


INCLUDE FILES: 
Name Descnption 
V DATA.H contains the common variables for verobs 


C COMPILER DEPENDENCIES: f90 


Ss 


C COMPILE OPTIONS: -f fixed -c 


C 


C MAKEFILE: Located at /a/ops/app/mverif/src/sub/makeverobshib 


S 
C 


UNICOS make 


C RECORD OF CHANGES: 


6 


C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 


C 
C 


Initial submission 
Original Programmer: MA Rennick 


implicit none 
include 'v_data.h' 


5 2 a 2 2 2 2 Oe KE EK KK EK EK HK KR KK HK KK KK KK KK KK KK KKK KA HK KKK HK KH KH HK KH KH KK HK KK HK 


Formal parameters 


| 2 2 2 2 2K 2 OK 2k 2K OK KK 2K KK KK OK OK 2 2 KK 2K OK 2K 2K KK KK KK KK KK OK OK KK 2K 2K KK OK 2K KK KK KK KK OK OK OK OK OK OK OK KK KK 


integer, intent(in) :: igeom ! geom ptr from gerd 
integer, intent(in) :: nobs ! number of obs to interpolate 
real, intent(in) :: field@jjmax) ! array to interpolate 

real, intent(in) :: obslat(maxobs) ! lat of report 

real, imntent(in) :: obslon(maxobs) ! lon of report 

real, intent(out) :: fob(maxobs) ! interpolated array 
integer, intent(out) :: istat ! status 


| 2K 2K 2K KK KK KE EK KK KK KK EK KK KK KKK KK KK KK KK KK KK KK KK KKK KK KE KK KKK KKK KK KKK KK KKK KKK 


Local variables 


[9 CR CCR ICICI CGC IO FIO ICRI OCE ICE 


integer = :: mx, jmx 
character(8) :: dsc 

real :: deol 

real :: drow 

real :: £x(maxobs) 
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real :: fy(maxobs) 


real :: ogi 
real : orig] 
real :: parm], parm2, parm3 


double precision :: olat 
double precision :: olon 


I ee 2 fe oe 2 fe 2 fe 2 fe 2 ae 2 2 2 a 2 2 2 2 2 2 i 2 2 ee 2 ae 2 2 ee 2 2 2 a a 2 2 2 ek EK OE EK OK 


! Functions 
PRE I II I IG IG I I GR RI ik i a 2k 2k ak ak 


integer imaxcv, Jmaxcv 


CALL GETGEOM(geom, prynnm, dsc, ncols, nrows, olat, olon, 
2 _—ongi, origj, deol, drow, parm], parm2, parm3, istat) 


if (ncols*nrows .gt. 1jmax) istat = 2 


J 2 Fe ok 2k a 2k ke 2 2 fe i ok 2 2 i 2 ake 2k 2 ok 2 Fe oR 2 ake 2 2 2 ak 2 ok 2k oe ak ok ok ak ok ok ake a a ai ak ake ok ak ok ak ake ake akc 2 2 a 2 2 ake ak kc ak ake 2 ak 2 a ak 


! if successful getgeom, obtain max 1st and 2nd dimension of the array 
! and convert from lat/lon to 1,) and interpolate 
4 Ee 2 2 ee 2 2 2 ee ee ae 2 2 ae 2 2 2 ee 2 2 fe 2 2 ee 2 ee fe 2 2 2 2 ee 2 a 2 ee 2 fe oe oe oe 2 oe 2 oe oe ee 2 a 


if (istat .eq. 0) then 


mx = imaxcv(ncols, nrows, dsc) 
jmx = ymaxcv(ncols, nrows, dsc) 
CALL VLLXY(igeom,nobs,obslat,obslon,'d',fx,fy,istat) 
if (istat .eq. 0) then 
! CALL FINTRP(fx,fy,nobs, field,imx,imx,jmx,0,0.,0.,0.,fob) 
CALL FINTRP(fx,fy,nobs,field,imx,imx,jmx, 1, 


2 bad_value, -999., -999., fob) 
else 
write (*,'("vilxy returns istat =",15)') istat 
end if 


fe 2 oe 2 oe he oe eo Oe oe eo ee a ae ee ae 2 ee a Oe a EE EE 


! if unsuccessful getgeom, print the error msg 
[FECEEEEEEEEEREAEEA REALE AA REAAAAEA LARA LAEAAE LALA RAALAEAAKEALALALALALAALEALE 


else 


write (*,'("getgeom retums:" 
/’ prynam =",a 

[/' dsc ="la 

/" neols ="15 

/" nrows ="\15 


/" olat =",f8.2 

olon =",f8.2 
/" ongi =",f8.2 
/" ong) =",f8.2 
f" deol =",f8.2 
I" drow ="f8.Z 


OTM OWMDNNDUNAWHD 
~ 


/ parm! =",f8.2 
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f’ parm2 =",f8.2 

/ parm3 =",f8.2 

/" istat =",15)') pryynnm,dsc,ncols,nrows,olat 
,olon,origi,origj,dcol,drow,parm 1 ,parm2,parm3,istat 


gq@maho aA 


if (stat .eq. 2) then 
write (*,'("ERROR: Current geometry requires array " 
2 "length ge",110,"; ymax =",110)') ncols*nrows,ijmax 
CALL EXIT (1) 
end if 


endif ! (ifistat == 0) 


returmm 
end subroutine f20b 


7. intgeom.f90 


subroutine intgeom(geomname!, geomname?, arr_size, 


2 fieldl, field2, stat) 
c 
Wor ee START PROLOGUE 2 cdtchuk 
c 


C SCCS IDENTIFICATION: @(#)intgeom.f90 1.1 04/24/98 /h/cem/library/mverif/src/sub/intgeom.f90_v 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: intgeom 

: DESCRIPTION: Interpolates one geometry to another geometry for 

spherical projection. 


COPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


CGO") a 


C REFERENCES: NONE 


OQ 


C CLASSIFICATION: Unclassified 
c 
C RESTRICTIONS: NONE 


@ 


C COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 


Cc 
Cc 
eS 
& 
6 
C call intgeom(geomname!, geomname?,arr_size, field], field2, istat) 
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c 
C PARAMETERS: 


C Name Type Usage Description 

Co see a ere 

C GEOMNAME!1 CHAR*32 INPUT GEOMETRY TO INTERPOLATE FROM 
C GEOMNAME2 CHAR*32 INPUT GEOMETRY TO INTERPOLATE TO 
C ARR _ SIZE INTEGER INPUT ARRAY SIZE 

CVLlELD| REAL(ymax) INPUT ARRAY TO INTERPOLATE FROM 
C rierp2 REAL(jjmax) OUTPUT INTERPOLATED ARRAY 

C ISTAT INTEGER OUTPUT STATUS 

c 

C COMMON BLOCKS: N/A 

C 

C FILES: NONE 

C 

C DATA BASES: $META_GRID_DB 

C Name Table Usage Description 
(pee ee ag eae IE 6 SS eka a 

& 

C NON-FILE INPUT/OUTPUT: NONE 

C 

C ERROR CONDITIONS: 

C CONDITION ACTION 

re rr 6.22850 ee 8 


C Errorretunn from GGRD Print err message & exit 

C Error return from GETGEOM Pmt err message & exit 
C Error return from VXYLL_ Print err message & exit 

C Error return from CHGEOM Print err message & exit 
c 

C ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 
CHGEOM CHANGES THE GEOMETRY 
EXIT System call that exits program 
GETGEOM _ Gets geometry arguments to be used by other routines 
GGRD Returns ISIS info. on given geometry 
IMAXCV _ Selects the first dimension of a field 
JMAXCV — Selects the second dimension of a field 
VXYLL = Converts 1 to lat/lon 


LOCAL VARIABLES AND 
STRUCTURES: 


Name Type Description 

CNCOLS INTEGER column count (getgeom, geomname]) 
CNROWS INTEGER rowcount (getgeom, geomnamel ) 
CORIGLAT DOUBLE latitude of ongin (getgeom, 


OOOO OO OO © 2 © G16 GO eo @ Oo 
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OF er ee eer eee eee etree Gre) Cl OOOO AOAMAAAAANAAANARNAN|OE 


CORIGLON DOUBLE _longtitude of ongin (getgeom, geomname! ) 
CORIGX REAL  xcoordinate of origin (getgeom,geomname!] ) 
CORIGY REAL _ ycoordinate of ongin (getgeom,geomnamel) 
CPARMI REAL _ geometry parameter #1 (getgeom,geomnamel) 
CPARM2 REAL _ geometry parameter #2 (getgeom,geomnamel ) 
CPARM3 REAL _ geometry parameter #3 (getgeom,geomname]l ) 
CPRINAM CHAR*24 projection name (getgeom, geomnamel) 
CSTDESC CHAR*24 | storage description (getgeom,geomname!] ) 
CXINTDIS REAL sinterval distance between columns (getgeom,geomnamel) 
CYINTDIS REAL interval distance between rows (getgeom,geomname 1) 
FILVAL REAL _ chgeom parameter 
FLAT REAL iatitude array 
FLON REAL siongtitude array 
FVALI REAL — chgeom parameter 
FVALO REAL _ chgeom parameter 
FW! REAL ~ work array for chgeom 
FW2 REAL — work array for chgeom 
GEOMI INTEGER data structure containing the input 
grid definition (chgeom) 
GGEOM CHAR*32 data structure containing the output 
grid definition (chgeom) 
GMODEL CHAR*32 NOGAPS model 
I INTEGER counter 
IFLAGI INTEGER input field flag (chgeom) 
IMAX INTEGER first dimension of an array 
ISFLG INTEGER  chgeom flag 
ISTGR INTEGER | stagger flag (chgeom) 
IVEC INTEGER vector flag (chgeom) 
IWRP INTEGER wrap flag (chgeom) 
i INTEGER counter 
JMAX INTEGER | second dimension of an array 
LAFLAG INTEGER land average flag (chgeom) 
LAPASS INTEGER number of passes (chgeom) 
LASRCH INTEGER number of points to search (chgeom) 
LAVAL REAL _. values in the field (chgeom) 
LEN INTEGER total number of element in an array 
LSTATS INTEGER output unit 
NCOLS INTEGER column count 
NGEOM — INTEGER data structure containing the input 
grid definition (chgeom) 
NRFCST REAL NORAPS forecast field 
NRFCSTU REAL NORAPS wind_u forecast 
NRFCSTV REAL  NORAPS wind _v forecast 
NROWS INTEGER rowcount 
ORIGLAT DOUBLE latitude of ongin 
ORIGLON DOUBLE longitude of origin 
ORIGX REAL  xcoordinate of origin 
ORIGY REAL _ ycoordinate of ongin 
PARMI1 REAL _ geometry parameter #1 
PARM2 REAL _ geometry parameter #2 
PARM3 REAL _ geometry parameter #3 
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ORG Oe OIG BO OBO NOROTONM 000M 


C 
C 
c 
o 
C 
& 
C 


PRJINAM CHAR*24 projection name 

STDESC CHAR*24 Storage descnption 

XINTDIS REAL Interval distance between columns 
YINTDIS REAL sInterval distance between rows 


METHOD: 
1. Get ISIS information on geomname!] by calling GGRD and 
GETGEOM. 
2. Call GGRD and GETGEOM on the geomname?2. 
3. Test for 'spherical' projection. 
4. Find the first and second dimension of the geomname?2. 
5. Convert V/j to lat/lon by calling vxyll. 
6. Interpolate field1 to field2 by calling CHGEOM. 


INCLUDE FILES: NONE 
COMPILER DEPENDENCIES: f90 
COMPILE OPTIONS: -f fixed -c 


MAKEFILE: Located at /a/ops/app/mvernf/src/sub/makeverobslib 
UNICOS make 


RECORD OF CHANGES: 


<<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk 
Initial submission 


implicit none 


CREE EAE KH AK EEK RK KE AK ERE K EEA KEKE KEKE £ KK EKA EEK KEKE AKEK KEKE EEE KE KEK EF 


Cc 


Formal parameters 


COFFEE EEA HE KEK KKK E KKK KK AEE KE KEKE KEE EEE HK KKK EAE KK EK EK EEE EEEA KEKE EEK 


character(32), Intent(in) :: gomnamel ! first geometry name 
character(32), Intent(in) :: geomname2  ! second geom name 
integer, § Intent(in) :: arr_size _! array size 

real, Intent(in) :: fieldl(arr_size)!array to interpolate 

real :: field2(arr_size)!interpolated array 

integer :: 1stat ! status 


OF EEK EEK KK KERR KK KKK EK KKK EE AK HK KKK KE KEK EK AK KK KER HEK EEE AKER EK EK EEE EK KKK KF 


Cc 


Local vanables 


OF ERE KK RK EK KK EK KK EEK EAE KAKA KK EKA AK AEE KARA EKER EEE EEE KEE EEE 


character*1 uv 

character*24 stdesc, cstdesc 
character*24 prnam, cprjnam 
character*32 gmodel, ggeom 


integer 1, J 
integer Istats, ngeom 
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integer geomi, ncols, nrows 
integer cncols, cnrows, 1m, jm, imax, max, len 
integer ivec, iwrp, istgr, iflagi, laflag, lasrch, lapass, isflg 


real fvali, fvalo, filval, laval 
real orlgx, ongy, parm], parm2, parm3, xintdis, yintdis 
real corigx, congy, cparm1, cparm2, cparm3, cxintdis, cyintdis 


parameter (im = 360) 
parameter (jm = 181) 
real fwl(im,jm), fw2(im,jm), flat(im,jm), flon(im,jm) 


double precision origlat, origlon, coriglat, coriglon 
parameter (uv = 'd') ! for vxyll 'd' means in degrees 


EER a OE a Ee 2 2 a 2 2 2 2 2 2 2 2 2 2 2 i 2 2 2 2 2 2 2 2 2 oi ok 2 2 oe 2 2k 2 2 2 2k 2 ok ok 


c Functions 
ITT CTT CTeLeCecCrcrrcrererecrerrer erro LT St eeereter err cre eT ee ee Te eee Se Se es 


integer imaxcv, Jmaxcv 


FE EA A 2 2 2 a 2 2 2 2 2 2 2 ee oe AE oe 2 oe 2 2 2 2 2 2 2 2 oe ok 2 ok 2 2 2 i 2 oi 2 ok 2g 2 ok 2 2 ok 2 2 oe 2 kc 2c 26 i 26 akc 2k 2k ok 2k 2k ok 2k ok 


c get ISIS info on the geometry] by calling GGRD 
¢ andGETGEOM 
FE a a a a a a a 2 2 ae a a 2 a 2 2 a 2 2 2 i 2 2 2 oe 2 2 2 2 2. ee oe 2 2 2 2 2 9k ec oi 2 2 oc 2 2 oc 2 oc 2 ak 2 2k ok 2k oc 2 2c 2k 2k 
call GGRD(geomnamel, geom1, 1stat) 
if (istat .ne. 0) then 
write (0,'("ggrd for geomnamel returns istat =",15)') istat 
call exit(11) 
end if 
call getgeom(geom1, cprjnam, cstdesc, cncols, cnrows, coriglat, 
2 _coriglon, corigx, corigy, cxintdis, cyintdis, cparm1, 
3 cparm2, cparm3, 1stat) 


if (istat ne. 0) then 
write (0,'("getgeom for geomname returns istat =",15)') istat 
call exit(1 1) 

end if 


if (cprjnam .ne. ‘spherical') then 

write(0,'("projection name for geomnamel is not spherical")’) 
call exit(11) 

end if 


8 EO a 2 a OO ee Ea ae Ee EO EO 2 oe 2 2 2 i 2 i 2 oe 2 2 2 2k 2 ok 2 a 2 2 2 2 ok 2 2 2 oi ok oe ok 2 2 ok 2k 2k oi ok 9 oi 2k ok 2 ok ok 2 2 ok 


c¢ get ISIS info on the geometry2 by calling GGRD 
C7F EO ee ee ee a a a 2 a KK 2 2 2 2 2 ok 8 2 ok 2 2 ok 2k 2 2 2 ok co oi 2k ok 2 ok ok ok ok 2k 
call gerd(geomname2,ngeom, istat) 
if (istat .ne. 0) then 
write (0,'("gerd for geomname?2 returns istat =",15)') istat 
call exit(11) 
end if 
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on @ ial © la @ al @ aE @| 


call getgeom(ngeom, prjnam, stdesc, ncols, nrows, origlat, 
Z origlon, origx, origy, xintdis, yintdis, parm1, parm?2, 
3 parm3, istat) 


if (istat .ne. 0) then 

write (0,'("getgeom for geomname? returns istat =",15)') 
2 istat 

call exit(11) 
end if 


if (prynam .ne. 'spherical') then 

wnite(0,'("projection name for geomname? 1s not spherical")') 
call exit(1 1) 

end if 


convert the 1,j to lat/lon 

ref: /a/library/omsp/chgeom/src/sub/chgeom.f 

flat=array of latitudes from vxyll for new 2-D array geomo 
flon=array of longitudes from vxyll for new 2-D array geomo 


imax=imaxcv(ncols,nrows,stdesc) 
jmax=jmaxcv(ncols,nrows,stdesc) 
do j=1, jmax 
do 1=1, max 
fw1 (ij) = float(a) 
fw2(1) = float() 
enddo 
enddo 


len = imax*jmax 
call vxyll(ngeom, len, fw1, fw2, uv, flat, flon, istat) 
if (istat .ne. 0) then 
wnite(O,'("VXYLL error")’) 
call exit(1 1) 
endif 


c set some of the chgeom parameter values (ref: chgeom write-up) 


ivec = |] 
1WIp = 1 
ister = 0 
iflagi = 0 
fvali = 0.0 
fvalo = 0.0 
laflag = 0 
lasrch = 20 
laval = 0.0 
lapass = 0 
filval =0.0 
isflg = O 
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c change the field] to field2 


call chgeom(field1, field], cncols, cnrows, geomi, imax, jmax, 
l ngeom, ivec, 1wrp, istgr, iflagi, fvahi, fvalo, 
2 laflag, lasrch, laval, lapass, filval, isflg, 
3 fw, fw2, field2, field2, istat) 
if (istat .ne. 0) then 
write(0,'("CHGEOM error in intgeom")’) 
call exit(11) 
endif 


retum 
end subroutine intgeom 


8. uv2df.f90 


subroutine uv2df(u, v, n, dir, spd) 


C SCCS IDENTIFICATION: @(#)uv2df.f90 1.1 04/24/98 /h/cm/library/mverif/src/sub/uv2df.f90_v 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: uv2df 

; DESCRIPTION: This subroutine converts u/v components to a 

field of direction/speed (dd/ff). 


COPYRIGHT: (c) 1996 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


Ge @:.67G7"O 


© REFERENCES: NONE 


C CLASSIFICATION: Unclassified 
Cc 
C RESTRICTIONS: NONE 


2 


C COMPUTER/OPERATING SYSTEM 
Cc DEPENDENCIES: Cray UNICOS 
Cc 

C LIBRARIES OF RESIDENCE: /a/ops/bin 
cc 

C USAGE: 

C call uv2df(u, v, n, dir, spd) 

Cc 

C PARAMETERS: 


eS 


U REAL INPUT Wind u-comp fest interpolated to obs 
V REAL INPUT Wind v-comp fest interpolated to obs 
N INTEGER INPUT No. of observations 

DIR REAL OUTPUT Converted direction array 

SPD REAL OUTPUT Converted speed array 


FILES: N/A 


C 

Cc 

c 

C 

C 

C 

C COMMON BLOCKS: N/A 
S: 

C 

ce 

C DATA BASES: N/A 
c 

C 


NON-FILE INPUT/OUTPUT: N/A 


OQ 


C ERROR CONDITIONS: N/A 
& 
C ADDITIONAL COMMENTS: NONE 


C MODULES CALLED: N/A 
Gc 
C LOCAL VARIABLES AND Structures are documented in detail 


STRUCTURES: where they are defined in the code 
within include files. 
Name Type Description 


I INTEGER Counter 
R2D REAL  45.0/atan(1.0) 


METHOD: 
Convert w/v to dir/spd by using simple tngonometric functions. 


INCLUDE FILES: NONE 
COMPILER DEPENDENCIES: £90 


COMPILE OPTIONS: -f fixed -c 


Gr Oi GG) GO O' O16 © OO @ arg) 


C MAKEFILE: Located at /a/ops/app/mvenif/src/sub/makeverobslib 

Cc UNICOS make 

c 

C RECORD OF CHANGES: 

C 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C _Imitial submission 

C  Onmginal Programmer: M.A. Rennick 


114 


implicit none 
CE FEEEEEE HE EERE KEK AEE RE EKA EEK AE ARE KA KER EERE EERE ER AEA EEK AKA KE 


c formal parameters 
C8 A He ee he fe ie eo he ee he ee ee 2 Ae fe 2 he 2 ee ee ee oe oe fe ie 2 oe ee 2 oe eo ek KE 


real u(n), v(n), dir(n), spd(n) 
integer n 


CFF ERKEEEK AREER EAE AREA EAE AK EAE ERK AEA EEK EEE KK ERK K KEK K EAE KEK EE KF 


c local vanables 
CEFF EE EERE AKER KEK EAE AK ERK EA RAKE AK EAE AERA AERA AREER EAE EEAREAE EE 
integer i 
real r2d 
real badval 
parameter(badval=1.E+10) 


r2d = 45.0 / atan(1.0) 


doi=l,n 
if (u(i) .eq. badval) then 
dir(i) = 999.0 
spd(i) = 999.0 
else 
if (u(i) .eq. 0.0) then 
u(i) = 1.0e-6 
end if 


dir(i) = 270.0 - r2d * atan2(v(a), u(a)) 
if (dir(i) .gt. 360.0) then 
dir(i) = dir(i) - 360.0 
end if 
spd(i) = sqrt(u(i)*u(i) + v(i)*v@)) 
end if 
end do 


return 
end subroutine uv2df 


he litread.f90 


subroutine lltread(seq_type, param, lvl, dsetnm, 


2 dtg, munlat, maxlat, minlon, 

3 maxlon, typlvl, obslat, obslon, 

4 nobs, obsval, istat) 
Cc 
ee START PROLOGUE? es 
Cc 


C SCCS IDENTIFICATION: @(@#)lltread.f90 1.1 04/24/98 /h/cm/library/mvenf/sre/sub/lltread.f90_v 
(e 

C CONFIGURATION IDENTIFICATION: NONE 

Cc 

C MODULE NAME: Iltread 
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DESCRIPTION: This module calls the appropriate latitude- 
longitude-time (Ilt) read module based upon 
the user specificed Ilt sequence type(s). 
There are separate read modules for each sequence 
type because of the different include files and 
data structure in the ISIS for the 
different observation types. 


COPYRIGHT: (c) 1996 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


QOD DO Cele eevee keke) 


C REFERENCES: ISIS LLT User's Manual 

c 

C CLASSIFICATION: Unclassified 

C 

C RESTRICTIONS: NONE 

Cc ° 

C COMPUTER/OPERATING SYSTEM 

Cc DEPENDENCIES: Cray UNICOS 

Cc 

C LIBRARIES OF RESIDENCE: /a/ops/bin 

Cc 

C USAGE: 

C call lltread(seq_type, param, lvl, dsetnm, dtg, 
Cc minlat, maxlat, minlon, maxlon, typlvl, 
Cc obslat, obslon, nobs, obsval, istat) 


SSeS ee Ber mrerwr Pee ees—SSe2 | HS S22 22 SSS © 8S Se SS SSS Se Se Se ese eaeens=— 


SEOQmlyY PE char*24 INPUT LLT obs type 

PARAM CHAR*32 INPUT Parameter to read eg. air_temp 
vi REAL INPUT Pressure level 

DSETNM CHAR*24 INPUT ISIS dataset name 

DTG CHAR*10 INPUT Date Time Group for read 
MINLAT REAL INPUT Minimum latitude of the area 
MAXLAT REAL INPUT Maximum latitude of the area 
REAL INPUT Minimum longitude of the area 
MAXLON REAL INPUT Maximum longitude of the area 
JOULE CHAR*24 INPUT _ level type 

OBSLAT REAL(maxobs) OUTPUT Observation latitude 
OBSLON REAL(maxobs) OUTPUT Observation longitude 
NOBS INTEGER OUTPUT No of good obs read 
OBSVAL REAL(maxobs) OUTPUT Observed parameter value 
ISTAT INTEGER OUTPUT Status 


COMMON BLOCKS: N/A 


OO) CoiG@@O@ 6) O) (OS) 1011) Os] @ 
© 
Zz 
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C FILES: NONE 

C 

C DATA BASES: NONE 

C 

C NON-FILE INPUT/OUTPUT: N/A 

C 

C ERROR CONDITIONS: 

C CONDITION ACTION 

Co isda nene acs eee 
C Numobs exceeds maxobs Print err message & return 
C  (istat = -1) 

G 

C ADDITIONAL COMMENTS: NONE 


C MODULES CALLED: 

Name Description 
RAOB QC_READ reads ISIS raob_qc lit data 
SFC_LAND_READ reads ISIS surface land Ilt data 
SFC_SHIP_READ reads ISIS surface ship met It data 
SFC_SHIP_MET_ QC_READ reads ISIS sfc ship met qc It data 
ALTY_READ reads ISIS alty It data 


LOCAL VARIABLES AND Structures are documented in deta! 
STRUCTURES: where they are defined in the code 
within include files. 


INCLUDE FILES: 
Name Description 


LO 10 JON @1O1@ (OU SNe teen eh ome 


C COMPILER DEPENDENCIES: f90 
C 
C COMPILE OPTIONS: -f fixed -c 
C 
C MAKEFILE: Located at /a/ops/app/mverif/src/sub/makeverobslib 
C UNICOS make 
C 
C RECORD OF CHANGES: 
S 
C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 
C 
een ne fide END PROLOGUE acre ccc 
Cc 
mmplicit none 
include 'v_data.h' 


CoE A RC RC RG OR RR 2 9 oR RR A RO 2 oO oR oR oR ok aR aR kok ook 


ly 


c Formal parameters 

CFF EE HH HH HH HH He He HH HE EH HE He ee He He 2 ee ee Ae 2 He 2 ie 2 ee 2 ee 2K 2 OE 
character(24), intent(in) :: seq_type 
Character(32), Intent(in) :: PARAM _ ! parameter 
Real, Intent(in) :: lvl ! level 
CHARACTER(24), INTENT(IN) :: DSETNM §! Data set name used. 
CHARACTER(10), INTENTCUN) :: DTG | Date Time Group for read. 
REAL, INTENTCN) :: MINLAT §! South latitude boundary. 
REAL, INTENT(IN) :: MAXLAT ! North latitude boundary. 
REAL, INTENT(IN) :: MINLON _! West longitude boundary. 
REAL, INTENT(IN) :: MAXLON ss! East longitude boundary. 
CHARACTER(24), INTENT(IN) :: TYPLVL ! type level, e.g, isbr_lvi 


Real :: obslat(maxobs) ! obs lat 

Real :: obslon(maxobs) ! obs lon 

Real :: obsval(maxobs) ! obs data value 
integer :: nobs ! numober of obs 
integer "stat 


SG GG IG IR IG ER 


! Local variables used as arguments for LLT read subroutines: 

MILT LT TEC LITT Li Tiree Tore rere rt Tre rer rere rr roo Ee er Ts ee ee 
CHARACTER(8) :: VRSNNAM §! Version of ISIS software used. 
CHARACTER(8) :: SECLVL  !7 character security classification level. 
REAL = ety ! Hour cited in the report. 
CHARACTER(16) :: MINDTG  ! Minmum date and time group to read. 
CHARACTER(16) :: MAXDTG =! Maximum date and time group to read. 
CHARACTER(16) :: NEW_DTG !-12 DTG if current not found 
REAL :: MINHR — ! Minmum hour to read. 
REAL :: MAXHR ~~! Maximum hour to read. 


CR FERKKKE EEK HAH K AK HA KK EEA KA KAKA KAKA EE EEAAKA EEE LALAL EKA EEE EKELE LEK EEF 


c Local vanables 


CFF FEE HK FH HK A HH HH HH A HH HK HK HHH HH KH HHH AK K H HH KA HH AK KA KKK KKK K KEKE KK £ 


integer 1 

REAL ::PLAT — ! Point latitude 

REAL ::PLON _! Point longitude 

REAL :: DISTANCE ! Radius of circle centered 


! at PLAT/PLON 
CHARACTER(S) :: BLOCK_STATION(10) 
CHARACTER(20) :: STATION _NAME(10) ! International blksta # 
Character(20) :: stn_name 


vrsnnam = '*' 
seclv] = 'UNCLASS' 


(2 A A 2 ae 2 ee 2k he ee fe fe fe fe fe fe fe fe fe fe 2 2 2 2 fe 2 ee fe fe ee Fe 2 2 2c 2 2 fe fe fe fe Fe ee ie ie Fe 2 2 2 2 2 a EK KF 


¢ initialize the arrays oblat, oblon, obval 
CE AE AE ee ke ke fe fe fe 3 2 2 fee 2 2 fe ee 3 E 2fe fe fe ie 2 2 2 fe fe 2 2 fe fe fe fe fe 2 2 2 fe 2 2 2 ee ee A 2 2 He kK EE KE A 


do 1=1,maxobs 
obslat(1) = bad_value 
obslon(1) = bad_value 
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obsval(1) = bad_value 
end do 


C2 GR IG GE AE» 


c RAOB QCLLT (nogaps, noraps, coamps 
Re a 2 ee ee 2 2 EE A A HH He A AE A A AE A A A EE EE EK EE AE 
if (seq_type = 'raob_qc’) then 
CALL RAOB_ QC_READ(vrsnnam, __dsetnm, seclvl, 
dtg, param, lvl, 
minlat, § maxlat, muinion, 
maxlon, _ obslat, obslon, 
nobs, obsval, istat) 


Mm & W bo 


CF IGRI I IAI III IA I I A RR 


c  sfc_Ind (nogaps, noraps, coamps 
Retr COTES Pe Pre rrr terre ri Petri Tre rere re ee ere 
else if (seq_type = 'sfc_Ind") then 
CALL SFC_LND_READ(vrsnnam, _ dsetnm, seclvl, 
dtg, param, lvl, 
miniat, § maxliat, minion, 
maxlon, _— obstlat, obslon, 
nobs, obsval, istat) 


Mn & W bdo 


CF A COCR I FRC ICR CE AR RE EK 


c  sfc_ship (wam_global, otis_global 
CaS Hoda dd dad didi iit ick ik iki ik kak kk kk 
else if (seq_type == 'sfc_ship') then 
CALL SFC_SHIP_ READ(vrsnnam, _dsetnm, seclvl, 
dtg, param, lvl, 
miniat, § maxiat, minion, 
maxlon, obslat, obslon, 
nobs, obsval, istat) 


Mn B&W bd 


CPEFKEREEREAKAKEARAEAE EEA LK AEKEREKE KK KEA KK LKAKEAKAEKA KEKE LLAKEKE FEKEELES SE 


c  sfc_ship_met_qc (nogaps, noraps, coamps 
CP FEEEEREEKEE KEKE EEK KAKA AEE EEK KKKKEK KE AKAN EEK ALEK EEE EEE KEE A KE KH K 
else if (seq_type == 'sfc_ship_met_qc’) then 
CALL SFC_SHIP_MET_QC_READ 
(vrsnnam,  dsetnm, seclvl, 
dtg, param, lvl, 
miniat, | maxlat, minion, 
maxlon, obslat, obslon, 
nobs, obsval, istat) 


Nn & W bd 


CREEK EK KEK AK HH AK HK HK KK A KK EK KK KEK KK KEKE KK EK KKK KARE KK KK 


c  alty (wam_global 
C7 OE III IIR IO I A A A A 
else if (seq_type == ‘alty') then 
CALL ALTY_READ( vrsnnam,  dsetnm, seclvl, 


2 dtg, param, lvl, 
3 minlat, | maxlat, minion, 
4 maxlon, obslat, obslon, 


Pio 


5 nobs, obsval, istat) 


c other seq_types 


end if 
return 
end subroutine Iltread 
10. _alty.f90 
subroutine alty_read(vrsnnam, dsetnm, seclvl, dtg, param, 
Z lvl, minlat, maxlat, minlon, maxlon, 
3 lat, lon, nobs, obs, stat) 
e 
OS... eal yen 5G) yt 8) UG) 6: Ue eee 
C 


C SCCS IDENTIFICATION: @(#)alty.f90 1.1 04/24/98 /h/cm/library/mvenf/src/sub/alty.f90_v 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: alty_read 

: DESCRIPTION: subroutine to read the alty data and pick 

out the obs data for the given parameter 


COPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


O GAO 0° O12 2 @ 


C REFERENCES: NONE 
: CLASSIFICATION: Unclassified 

: RESTRICTIONS: NONE 

: COMPUTER/OPERATING SYSTEM 
DEPENDENCEES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
call alty_read( vrsnnam, dsetnm, seclvl, dtg, param, 
lvl, miunlat, maxlat, minlon, maxlon, 
lat, lon, nobs, obs, stat) 


COLOR O (OnG NS Sk Ge (Ol @ 1 e, 


eseeeee ee a= esee@e ee eae = Seen e ees es eee see ee eee 28888828982 


120 


VRSNNAM CHAR*8 INPUT _ llt version name 
DSETNM CHAR*24 INPUT data set name 
SECLVL CHAR*8 INPUT _ classification 


DTG CHAR*10 INPUT date time group for read 
PARAM CHAR*32 INPUT parameter 
IMAG REAL INPUT _ level type 


MINLAT REAL INPUT minimum latitude 
MAXLAT REAL INPUT maximum latitude 
MINLON REAL INPUT minimum longitude 
MAXLON REAL INPUT maximum longitude 


LAT REAL(size) OUTPUT obs latitude 
LON REAL(size) OUTPUT obs longitude 
NOBS INTEGER OUTPUT number of obs 
OBS REAL(size) OUTPUT obs value 


ISTAT INTEGER OUTPUT return status 
COMMON BLOCKS: N/A 
FILES: None 


DATA BASES: ISIS LLT_DB 
Name Table Usage Description 


eee ee ae oe se eee Sr eeaereese es See ee ees SSeS se SF Bee ee eww e see ee oc= 


oo 5) OS) ©) ) Ol ele ie tele enone none ne) 


Cc 

C NON-FILE INPUT/OUTPUT: N/A 

c 

C ERROR CONDITIONS: 

C CONDITION ACTION 

Os OE RT ET 
C DTG error Print err message & return 
C ErrorreturnfromLRD  Pnnt err message 
C Error return from LCLOS Print err message 
C 

C ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 
LCLOS _ ISIS LLT close 
LEN_TRIM Determines the length of a string 
LRD ISIS LLT read 
TRIM Removes the trailing blanks 


LOCAL VARIABLES AND Structures are documented in detail 
STRUCTURES: where they are defined in the code 
within include files. 


OOOO Ore OOO) 2 OOO 


- 
zs 
g 


C  Setseq_type to'alty’ 


ea 


C See raob_qc_read for the rest. 


INCLUDE FILES: 

C Name Description 
S.C 
: COMPILER DEPENDENCIES: f90 

- COMPILE OPTIONS: -f fixed -c 

C 


C MAKFFILE: Located at /a/ops/app/mverif/src/sub/makeverobslib 

C UNICOS make 

C 

C RECORD OF CHANGES: 

C 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 


umplicit none 
include 'v_data.h' 
include ‘ALT Y.H' 


CF ER EE EE EE EK AK EE EE KK 


c formal parameters 
oF A ke ke ee ke 2k 2h 2 fee ie he 2 ee 2h 2h he he fe 6 ee 2 2h 26 2 ie ee 2 2 oe 2 2 ee a EF 
character(8), intent(in) :: vrsnnam 
character(24), intent(in) :: dsetnm 
character(8), intent(in) :: seclvl 
character(10), intent(in) :: dtg 
character(32), intent(in) :: param 


real, intent(in) :: lvl 
real, intent(in) :: minlat 
real, intent(in) :: maxlat 
real, intent(in) :: minlon 
real, intent(in) :: maxlon 
real :: lat(size) 
real :: lon(size) 
integer :: nobs 
real :: obs(size) 
integer : 1Stat 


CE 2 2 ke ee 2 ee ee 2 2 2 2 2 EE EK 


¢ local variables used as arguments for LRD: 

CoE A a a ee 2 2k fe ie ie He 2 ee ee ee a ee EE EEE 
character(24) :: seq_type 
real 2: hr 
CHARACTER(16) :: MINDTG  ! Minmum date and time group to read. 
CHARACTER(16) :: MAXDTG _ ! Maximum date and time group to read. 
REAL :} MINHR — ! Minmum hour to read. 


hz 


REAL :; MAXHR ~~ ! Maximum hour to read. 

CHARACTER(16) RSN_IN _ ! Reporting source name. 

REAL :: FCST_IN  ! Desired forecast "TAU". 

CHARACTER(24) :: MINUPTM _§! Minimum update time. 
CHARACTER(S56) :: REMARKS _! Descnption of data/assoc. record. 
CHARACTER(16):: RPT DTG _! Actual date & time group for report. 


REAL :: RPT_HR _! Reported hour read. 

REAL :: RPT_LAT ! Reported latitude read. 

REAL :: RPT_LON §! Reported longitude read. 
CHARACTER(16) :: RPT_RSN _! Reported longitude read. 
REAL :: RPT_FCST ! Reported "TAU" or forecast time. 


CHARACTER(24) :: RPT_CRETM ! Record creation date. 
CHARACTER(24) :: RPT_UDT ! Report's last update time. 
INTEGER  :: BUFFLAG_ ! 0 => Input is n FBUFF 

! 1 => Input is n IBUFF 
INTEGER ::LLT_ID $! Unique database LLT identifier for each 

! dataset. 
INTEGER ~— :: BLKSEQID ! Unique database LLT block identifier. 
INTEGER — :: RECSEQID ! Unique database LLT record identifier. 


TYPE(alty_int):: IBUFF ! integer record structure. 
TYPE alty):: FBOUFF ! Real record structure. 


a ee ee EES ETE EEE EES ee tee 


c Arguments for LCLOS (that get "*" for values). 
Coa aa aa agokididgdk i idjkagak ikki i ik kak aba a ae 
CHARACTER(24) :: SEQTYPE _X ! Report type. 
CHARACTER(8) :: VRSNNAM_X ! Version of ISIS software used. 
CHARACTER(24) :: DSETNAM_X ! Data set name used. 
CHARACTER(8) :: SECLVL_X_ ! 7 character security 
! classification level. 
CHARACTER(16) :: DTG_X — ! Date Time Group for wntte. 


CF FEFEEEEE EAA EARL KAA LEAK EAA KAA AEE AREKAKAAAKKAK KA AKAAAA KEE RAKAK KKK AK AK 


c Other local variables 

Ca aa aa aaa baa aoa aoa ooo aa a a ar ie 
integer :: levels 
integer :: status, 1, status2 


seq_type = ‘alty' ! Report type 
istat = 0 


9 2 2 2 2 fe 2 he he 2 ee 2 ee 2 fe 2 he 2 2 2 Oe Ke fe 2 he 2 2 oe 2 he Oe i he OO OE ok EE OE KE A RAK KKK 


! Set up date and trme group n YY Y YMMDDHH format in DTG. 
(2 2 A 2 2 A A A 2 EA A EE EEE 2 fo a a a oka 2k a 
IF (LEN_TRIM(DTG) == 10 ) THEN 
READ (UNIT=DTG(9:10),FMT='"(F2.0)' IOSTAT=STATUS) HR 
IF (STATUS = 0 ) THEN 
IF (HR < 12.) THEN 


HR = 0. 
BES 
Jol = 


ZS 


END IF 
EESE 


WRITE *, '‘ Cannot read hour "', DTG(9:10), 
Zz ' from date & time group ', TRIM(DTG) 


istat = -1] 
RETURN 
END IF 
ESE 
STATUS = 10 
WRITE *, ‘alty: Got date and time group ', 
2 TRIM(DTG), ' of length’, 


3 LEN_TRIM(TG), ' but expected length = 10. 


istat = -] 
RETURN 
END IF 


BR A 2 ie he 2 2c OE 2 OE oie 2 OE ae OE Oe oO OE OE Oe EE RK KRHA KKK KKK HK KKK AKA K HK KK KE 


! Set the input parameters used to get a read-back value. 
JE AR oe A a A ae 2 eo OE EE EE EK KE KK KKK KKK RAH KK KK KKK KKK EKA KK AAK 


MINDTG =DTG; MAXDTG =DTG 


MINHR =HR; MAXHR =HR+11.999 


RSN_IN ="*' 


FCST_IN =0.0 ! Report forecast period or Tau (normal = 0.0) 


MINUPTM ='*" 


BUFFLAG=0 — ! Want (both) floating (and integer). 


EK OR OR RR Ee ROK OK RK OK RE OR EK OK OK EE EE OK EE OK OK 2 a a ee a 2 oR oe 2 oe EE OK oe a oR OR oR ok oe OK ok 2 ok oe ok ok ok 


«AE AE Oe oR OK ee a a OR OR OR EE OR OK EK OK ER EE eR ok ROK OE OE Ee OR 2 OK 2 OR ae eR Roe EE OK OK OK OK OK EE OK ok KK 


! get the data from LLT db 
[=0 
nobs = 0 


DO WHILE (STATUS =0) 

CALL LRD(seq_type, vrsnnam, dsetnm, 
MINDTG, MINHR, MAXDTG, 
MINLAT, MAXLAT, MINLON, 
RSN_IN, FCST_IN, MINUPTM, 
RPiebTG) RPT AR, RPT_LAT, 


COnNMN fh WN 


IBUFF, FBUFF, STATUS) 
IF (STATUS /= 0) THEN 
IF (STATUS /= 100 ) THEN 


! Ignore normal no-more-data return code 


SECLVL, 
MAXHR, 
MAXLON, 

BUFFLAG, 
RPT_LON, 


RPT_RSN, RPT FCST, RPT_CRETM, RPT_UDT, 
LLT ID, BLKSEQID, RECSEQD, 


WRITE *, ' Read from ISIS failed. Code =', STATUS, *.' 


stat = status 
END IF 
ELSE ! successful LRD 
I=I+1] 


CPF KERR AKA KKK HHA HHH HHA HH HHH HH HH HH HR A A a ae OE A A OR OE A A A A A EE HK HK HE HK HH HK 


C pick out the relevant info and fill the array 
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(FE 2 Ee EE eo EEE eK EE EK KK KKK KKK KE KK 
if (param == 'sig_wav_ht’) then 

if (fbuff % sig wav_ht <check_val) then 
nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fbuff % sig_wav_ht 

end if 


else if (param == ‘wnd_ spd’) then 
if (fbuff % wnd_spd < check_val) then 
nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = fbuff % wnd_spd 
end if 


end if ! param 
endif ! OK status 
END DO _!1 loop 


IF (STATUS = 100 ) STATUS =0 

write *,'' 

WRITE *, ' Called LRD ', I, ' tumes.' 

write *,' Read ', nobs, ' obs of sequence type ', TRIM(SEQ_TYPE), 
2 = 


a eA EEE ee ee ee EE EE EE ET 


! Close the dataset (now open for reading) again. 
JE ie He A he 2 ee 2 ee ee Ee oe ee ee 2 A A ee oe 2 ie He ee fe Oe ee ee OE oe EE EK 


SEQT YPE_X="*'; VRSNNAM_X='*'; DSETNAM_X = '*' 
SECLVL_ X = DTG x — "x! 


CALL LCLOS(SEQTYPE X, VRSNNAM_X, DSETNAM_X, 
2 SECLVL_X, DTG_X, STATUS2) 
IF (STATUS2 /=0 ) THEN 
WRITE *, ' Could not close ISIS table. ', 
2 ' Error code 1s ', STATUS2, *.’ 
END IF 


retum 
end subroutine alty_read 


11. raob_qc.f90 


subroutine raob_qc_read(vrsnnam, dsetnm, seclvl, dtg, param, 


2 lvl, minlat, maxlat, minlon, maxlon, 

3 lat, lon, kfinal, obs, istat) 
c 
5 Oe cre START PROLOGUE 2. 
C 


5 


c SCCS IDENTIFICATION: @(#)raob_qe.f90 1.1 04/24/98 /h/cm/library/mverif/src/sub/raob_qc.f90_v 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: raob_qc_ read 

: DESCRIPTION: subroutine to read the raob_qc data and pick 

C out the obs data for the given parameter 


COPYRIGHT: (c) 1996 FFENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 
CONTRACT NUMBER AND TITLE: N/A 
REFERENCES: LLT User's Manual 
CLASSIFICATION: Unclassified 
RESTRICTIONS: NONE 


COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
call raob_qc_read(vrsnnam, dsetnm, seclvl, dtg, param, 
level, minlat, maxlat, minlon, maxlon, 
lat, lon, kfinal, obs, istat) 


olin lal @ ial OME iE © iil @ lms iE CHEE © © iE olE oll oll ¢ lll oll oll oll @ lll oll oil oll oll oli @| 


ISTAT INTEGER OUTPUT Status 


COMMON BLOCKS: N/A 


PARAMETERS 
Name Type Usage Description 

CC ewww eeweee =e ewww wwe wn ewe em mmm www wm eww eww nee one en enone 
c VRSNNAM INTEGER INPUT Version name 
c DSETNM CHAR*24 INPUT ISIS dataset name 
© SECEVEE CHAR*8 INPUT Security level 
c DTG CHAR#10 INPUT Date Time Group for read 
c PARAM CHAR*32 INPUT Parameter to read eg. air_temp 
e VL REAL INPUT Pressure level 
c MINLAT REAL INPUT Minimum latitude of the area 
c MAXLAT REAL INPUT Maximum latitude of the area 
c MINLON REAL INPUT Minimum longitude of the area 
c¢ MAXLON REAL INPUT Maximum longitude of the area 
c LAT Real(size) OUTPUT obs latitude 
c LON Real(size) OUTPUT obs longtitude 
c KFINAL INTEGER OUTPUT Numberofobs_ . 
c OBS Real(size) OUTPUT Observed parameter value 
Cc 
c 
Cc 
é 
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c FILES: None 


Cc 
Cc 
Cc 
Cc 


O0O000 082004 0 


O02 0 0 


Q 


(olan © lal © al © aE © oasis © lal © ial © ial @ al © lal © ial © il © ial © il © al © al © il @ al © al © 2 © © al © al © Hl © i © iE @ HE © HE © EE © EE @ IE @ EE @) 


DATA BASES: ISIS LLT database 
Name Table Usage Description 
raob_qc RAOB QC IN raob obs 

NON-FILE INPUT/OUTPUT: N/A 
ERROR CONDITIONS: 

CONDITION ACTION 
DTG error Print err message & return 
Error retum from LRD “Print err message 
Error return from LCLOS Print err message 

eet MATINTENANGE, SEC TION Bary ee er cccssccdessacenes 

MODULES CALLED: 

Name Description 


LCLOS ISIS LLT close 

LEN_TRIM Determines the length of a string 
LRD ISIS LLT read 

TRIM Removes the trailing blanks 


LOCAL VARIABLES AND Structures are documented 1n detail 
STRUCTURES: where they are defined in the code 
within include files. 


METHOD: 
1. Set seq_type to 'raob_ qc’ 


2. Get hr from dtg, set mindtg, maxdtg, minhr, maxhr, rsn_in 
(reporting source name), fcst_in (desired tau), minuptm 
(min update time), bufflag (0) 


3. Set 1=0 


do while (status == 0) 
call LRD(seq_type, vrsnnam, dsetnam, seclvl, mindtg, 
minhr, maxdtg, maxhr, munlat, maxlat, 
minion, maxlon, rsn_in, fcst_in, minuptm, 
bufflag, rpt_dtg, rtp hr, rpt_lat, rpt_lon, 
rpt_rsn, rpt_fcest, rpt_cretm, rpt_udt, Ilt_id, 
blkseqid, recseqid, ibuff, fbuff, status) 
if status /= 0 then 
if status /= 100 then 
write error msg 
end if 
else 
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OFG>5G OG © .0 CG GO OQ Gf © © 82° 2 CGO OG OG © OG 2 Ct 2 OG oO 6) G OQ Giese GO O20 Gea°ocacUcunKkml:Mlalndnlc.aAalcanl la 


© 


1=1+1 

if duplicate data using rpt_rsn 
print msg 

endif 


pick out the relevant info and fill the array 


nobs = 0 
levels = fouff % prof_cnt 
do j=1, levels 


pick out only the nght level 
if (prof_t % pres = level) then 


lat(j) = fouff % crse_lat 
lon(j) = fouff % crse_lon 
if parm = ‘air_temp' then 
if prof_t % air_temp /= missing_value then 
obs(j) = prof_t % air_temp 
nobs = nobs + 1 
endif 
elseif parm = 'geop_ht' then 
if prof_t % geop_ht = missing value then 
obs(j) = prof_t % geop_ht 
nobs = nobs + |] 
endif 
elseif parm = 'wnd_dir' then 
if prof_t % wnd_dir /= missing_value then 
obs(j) = prof_t % wnd_dir 
nobs = nobs + 1 
endif 
elseif parm = 'wnd_spd' then 
if prof_t % wnd_spd /= missing_value then 
obs(j) = prof_t % wnd_spd 
nobs = nobs + | 
endif 
endif 


endif (nght level) 
enddo (j loop) 


endif c if status=0 
enddo c1 loop 


if (status = 100) then status 1s good 
close the dataset by calling LCLOS 


INCLUDE FICES: 


Name Description 


SSF SOS SSS Se ef eE Se PF ee ee sF ee ee Sse se see sees eee ees ese eee eo 


RAOB QC.H raob header file 

common.inc LLT data structure 

v_data.h common variables for verobs 
COMPILER DEPENDENCIES: f90 
COMPILE OPTIONS: -f fixed -c 


MAKEFILE: Located at /a/ops/app/mverif/src/sub/makeverobslib 
UNICOS make 


RECORD OF CHANGES: 


<<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
Initial submission 


0090080 900020000 000 0 


O° 
a2) 
wn 
‘e) 
ae 
© 
Q) 
; 


implicit none 


include 'v_data.h' 
include 'common.inc' 
include 'RAOB_ QC.H' 


2 A GG FSI CR a aE ak 


c¢ formal parameters 
CF FEE KKK KEKE KK KK KKK EK KEK KKK KEKE KKK EEK E KE EK EK EK AK KEKE KEK AEE EEE KK 
character(8), intent(in) :: vrsnnam 
character(24), intent(in) :: dsetnm 
character(8), intent(in) :: seclv] 
character(10), intent(in) :: dtg 
character(32), intent(in) :: param 


Teal, intent(in) :: lv] 
real, intent(in) :: minlat 
real, intent(in) :: maxlat 
Teal, intent(in) :: minlon 
Teal, intent(in) :: maxlon 
Teal :: lat(size) 
real :: lon(size) 
integer :: kfinal 
Teal :: obs(size) 
integer : 1Stat 


OF FEKKEEKEAE KAKA KAKA EEKAEKAKE EKA K KKK EKAK KKK KKK KK KKKEKAKKKAKKKKKK EF 


c local variables used as arguments for LRD: 

Otte rrrCLeLerericicirtrrrrc cL ert rLrr icc tc reece terre terre rrr eee eee ete 
character(24) :: seq_type 
Teal 8 06 
CHARACTER(16) :: MINDTG — ! Minmum date and time group to read. 
CHARACTER(16) :: MAXDTG =! Maximum date and time group to read. 
REAL :: MINHR — ! Minmum hour to read. 
REAL :: MAXHR ~~! Maximum hour to read. 
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CHARACTER(16) :: RSN_IN — ! Reporting source name. 

REAL = FCST IN! Desired forecast "TAU". 

CHARACTER(24) :: MINUPTM ! Minimum update time. 
CHARACTER(S6) :: REMARKS _! Description of data/assoc. record. 
CHARACTER(16) :: RPT_DTG _! Actual date & time group for report. 


REAL :: RPT_HR _! Reported hour read. 

REAL :: RPT_LAT ! Reported latitude read. 

REAL :: RPT_LON ! Reported longitude read. 
CHARACTER(16) :: RPT_RSN_ ! Reported longitude read. 
REAL :: RPT_FCST ! Reported "TAU" or forecast time. 


CHARACTER(24) :: RPT_CRETM ! Record creation date. 
CHARACTER(24) :: RPT_UDT _! Report's last update time. 
INTEGER ~~ :: BUFFLAG_ $$! 0 => Input is in FBUFF 

! | => Input is in IBUFF 
INTEGER  ::LLT_ID §! Unique database LLT identifier for each 

! dataset. 
INTEGER — :: BLKSEQID ! Unique database LLT block identifier. 
INTEGER ~— :: RECSEQID ! Unique database LLT record identifier. 


TYPE(raob_qc_int) :: IBUFF 
TYPE(raob_qc):: FBUFF ! Real record structure. 


(oF AE EE ee Ee ee ee a ee ae 2 ee ae a 2 ee a a ie i 2 ee 2 ee 2 2 oe 2 fe 2 fe 2 oe oe 2 2 2 a ko 2k ok 


c Arguments for LCLOS (that get "*" for values). 
ASS GO GOGH OGG AIAG IGR AGRIC Ik 
CHARACTER(24) :: SEQTYPE _X ! Report type. 
CHARACTER(8) :: VRSNNAM_X ! Version of ISIS software used. 
CHARACTER(24) :: DSETNAM_X ! Data set name used. 
CHARACTER(8) :: SECLVL_X !7 character security 
! classification level. 
CHARACTER(16) :: DTG_X _ ! Date Time Group for write. 


EA A A OO Oe Ee Ee ee a a ee a a ee Oe oe 2 ae a a OO OK OO KK EE 


c Other local variables 

ORG GGG IGG UGG GIGI CI ICI a a a a ic a a a a ae a ei i ak ak 
integer :: levels, lvl_1, nmatch, k 
integer :: status, 1, j, status2 


seq_type = 'raob_ qc’! obs report type 
istat = 0 


EE A a A ee ee 2 ee a ee 2 ee ee ae ee ee a Ee ee 2 2 2 2 2 ee oe 2 ee 2 2 ee 2 ee 2 oe eo oe 2 oe 2 OE a OO 


c Set up date and time group in YY YYMMDDHH format in DTG. 
CEEKEKEREEAEAAKEEAE KEE KK KAK KAKA AK KA KAKKKEKAKAEEARA KKKAKKEAKEAKAKELEEAEEAAS 
IF (LEN_TRIM(DTG) = 10 ) THEN 
READ (UNIT=DTG(9:10), FMT='(F2.0)' JOSTAT=STATUS) HR 
IF (STATUS == 0 ) THEN 
If CHR <a ) THEN 


HR = 0. 
ELSE 

Pike 12) 
END IF 
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BESE 
WRITE *, ' Cannot read hour ', DTG(9:10), 
2 ' from date & time group ', TRIM(DTG) 
istat = -1 
RETURN 
END IF 
EESE 
STATUS = 10 
WRITE *,'raob_ qc: Got date and time group ', TRIM(DTG), 
2 ‘of length ', 
3 LEN_TRIM(DTG), ' but expected length = 10.' 
istat = -1 


CF FE EAE A KK HK ERK EE KK EK EK KK KK KKK KK EK KEKE KK KEKE KKK KK KK KKK 


c Set the input parameters used to get a read-back value. 

CEE EE I EO I EE OR OO RR OK BR 
MINDTG =DTG; MAXDTG =DTG 
MINHR =HR; MAXHR =HR+11.999 


RSN_IN ='*' 
FCST_IN =0.0 ! Report forecast period or Tau (normal = 0.0) 
MINUPTM = '*' 


BUFFLAG =0 _— ! Want (both) floating (and integer). 


CF FF EK EEKEK EEE KEK ERE KKK KA HEA KKK KAA KEK KAKA AK KK EK KKK AKA EAE KE KA EEE 


¢ get the data from LLT db 

C¥FEEEEKEEEEE ARE KEK EELEK EAA ELEKAEKKKALK KE KKA KK AKA KEAEKAEEAKLEEL EA LKE EEE 
0 
kfinal = 0 ! overall number of matched pressure level and param 


DO WHILE (STATUS =0 ) 

CALL LRD(seq_type, vrsnnam, dsetnm, SECLVL, 
MINDTG, MINHR, MAXDTG, MAXHR, 
MINLAT, MAXLAT, MINLON, MAXLON, 
RSN_IN, FCST_IN, MINUPTM, BUFFLAG, 
REDD] Gaeta RPI LAT © RPT CON: 
RETR SN RPT Fes eRe CRE TV Eee a. 
EE Oe bese Ol RECSEOID. 

IBUFF, FBUFF, STATUS) 
IF (STATUS /=0 ) THEN 
IF (STATUS / 100 ) THEN 
! Ignore normal no-more-data return code 
WRITE #*, ' Read from ISIS failed. Code =', STATUS, '.' 
istat = -1] 
END IF 
ELSE ! successful LRD 
[=]+1 


COMNDNA PWN 


CP FFEEKEEEEE EEA KE KEEKKKAE AK EKA EKAAKEAKEK KK AK EKA EKAK EKA KEKE EEE KEELE EE EE 


c pick out the relevant info and fill the array 
C prof is a sub-structure of raob_ qc 


[331 


c prof_cnt has the number of levels 
4 EE AH HE FE I I EF FO IE IO I ROR I IO 


levels = fbuff % prof_cnt 


do j = 1, levels 


CEE A ER EE EE ICE OR OE FIO ICR CR IR OR I CCK EE 


3 pick out only the nght level 


CE EEE A EK KE I I BK A KE EIR FE OE IO EE OE EAE CECE IK 


nmatch = 0 ! number of matched pressure level and parameter 


lvl_1 =int(fbuff % profg) % pres / 100) 
if (Ivl_ 1 ==1v]) then 


CF FEE KK KKK KK KKK HK HK EE EK KEK AE EE KKK KK KK KK KK KKK KK AK KKK AK KKK KKK KK HKK KAKA 


c we want to use the qc flag to discard the bad obs 
C use the qc flag value of 1 for this obs type 
MPIctortrrrroricror eer error oro PT Pe TTT e re LCL SLES TT o LCT erro LS Se ee ee ee 
if (param == 'air_temp’) then 
if (fbuffprof(j)%air_temp_qc_id = 1 .and. 
Ze fouff’%prof(j)Y%eair_temp <check_val) then 


CF FEE EK KAKA KKK KK HK KKK KK HK HK HH KK HHA HK HK HHH KK HH AK HH EE EEK HK KKK KKK KF 


want to fill the lat, lon, obs arrays filled from 

1 to overall number of matched obs without any 
skipped indices 

j index 1s for the level_cnt for a given lat/lon,* 

k index 1s for the matched param and pressure level 
within the j index 


CRFEEEEE EEE EA EKER AKA AE KEK AE KH AAKAK AK AAA HAHAHA HAH KKK HK HHA HA HH A HH HF HE KK HK 


OO. OG Oc o 


nmatch = nmatch + 1 
do k = kfinal+1, kfinal+nmatch 
lat(k) = fbuff % crse_lat 
lon(k) = fouff % crse_lon 
obs(k) = (fbuff % prof(q) % air_temp) 
end do 
end if 


else 1f (param = 'geop_ht') then 
if (fouffprof(j)%geop_ht_qc_id == 1 .and. 
2 fouff%profq)%geop_ht <check_val) then 
nmatch = nmatch + 1 
do k = kfinal+1, kfinalt+nmatch 
lat(k) = fbuff % crse_lat 
lon(k) = fbuff % crse_lon 
obs(k) = fbuff % prof) % geop_ht 
end do 
end if 


else if (param == 'wnd_dir’) then 
if (fouffYprof(j)%wnd_gqc_id == 1 .and. 
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2 fouffprof(})%odir < check_val) then 

nmatch = nmatch + ] 

do k = kfinal+1, kfinal+nmatch 
lat(k) = fouff % crse_lat 
lon(k) = fbuff % crse_lon 
obs(k) = fbuff % prof(j) % dir 

end do 

end if 


else 1f (param == 'wnd_ spd’) then 
if (fouffprof(j)%wnd_qce_ id = | .and. 
2 fouff%prof(Gj)%spd < check_val) then 
nmatch = nmatch + ] 
do k = kfinal+1, kfinal+nmatch 
lat(k) = fouff % crse_lat 
lon(k) = fouff % crse_lon 
obs(k) = fouff % prof(j) % spd 
end do 
end if 


end if ! param 
end if ! nght level 
kfinal = kfinal + nmatch 
end do ! levels loop 
endif ! OK status 

enddo !1i loop 
if (status == 100) status = 0 
write *,'' 
write *, ' Called LRD '" I, ' tumes.' 
write *, ' Read ', kfinal, ' obs of sequence type’, 
2  TRIM(seq_type), '' 


CEFR ER EE ELE EEEEEE EEE FEEEEE EE EEEKEEE EEE EEE ERASER EE EEE EERE AEE EERE EAA EEF 


c Close the dataset (now open for reading) again. 
CF EE EE EE EE EE ROE ROE IE IR IIR IE OR EK 


SEQTYPE_X="*'; VRSNNAM_X="*'; DSETNAM_X="*' 
SECUVE — 2 DIG Xs 


CALL LCLOS(SEQTYPE_X, VRSNNAM_X, DSETNAM_X, 
2 SECLVL_X, DTG_X, STATUS2) 
if (STATUS2 /= 0) then 
write *,' Could not close ISIS table. ', 
Z ‘Error code is ', STATUS2, "' 
end if 


retum 
end subroutine raob_qc_ read 


12. sfcland.f90 


subroutine sfc_Ind_read(vrsnnam, dsetnm, seclvl, dtg, param, 
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2 lvl, muniat, maxlat, minion, maxlon, 


3 lat, lon, nobs, obs, stat) 
c 
Coe sonore Riscntes eee els OL O GUE Ko ccecsecceccccivesececse 
Cc 


C SCCS IDENTIFICATION: @(#)sfcland.f90 1.1 04/24/98 /h/em/library/mverif/sre/sub/sfcland.f90_v 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: sfc_Ind_read 

; DESCRIPTION: subroutine to read the sfc_land data and pick out the 

obs data for the given parameter 


COPYRIGHT: (c) 1996 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 


CRere) © OG ©: © 


C REFERENCES: NONE 

Cc 

C CLASSIFICATION: Unclassified 

Cc 

C RESTRICTIONS: NONE 

Cc 

C COMPUTER/OPERATING SYSTEM 

C DEPENDENCIES: Cray UNICOS 
C 

C LIBRARIES OF RESIDENCE: /a/ops/bin 
Cc 

C USAGE: 

C call sfc_land(vrsnnam, dsetnm, seclvl, dtg, param, 
C lvl, minlat, maxlat, minlon, maxlon, 
Cc lat, lon, nobs, obs, istat) 


VRSNNAM CHAR*8 INPUT _ Ilt version name 
DSETNM CHAR*24 INPUT data set name 
SECEVL CHAR*8 INPUT _ classification 

DTG CHAR*10 INPUT _ date time group for read 
PARAM CHAR*32 INPUT parameter 

REAL INPUT _ level type 

MINLAT REAL INPUT munimum latitude 
MAXLAT REAL INPUT maximum latitude 
MINLON REAL INPUT minimum longitude 
MAXLON REAL INPUT maximum longitude 
LAT REAL(size) OUTPUT obs latitude 

LON REAL(size) OUTPUT obs longitude 
NOBS INTEGER OUTPUT number of obs 


OGG) 7}: OG) O00 GOO e.O 
eee 
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C OBS REAL(size) OUTPUT obs value 
CistAr INTEGER OUTPUT - status code 
C 

C COMMON BLOCKS: N/A 


GC 

C PILES: Nene 

c 

C DATA BASES: ISIS LLT_DB 

C Name Table Usage Description 

OC weceswened/ Seceds 0 aeeeea ee == = 2 


C sfc_Ind SFC_LND IN surface land obs 
c 
C NON-FILE INPUT/OUTPUT: N/A 


g 

C ERROR CONDITIONS: 

‘& CONDITION ACTION 

Cite ee Fo, eee 

C DTG error Print err message & return 


C Errorretun fromLRD Print err message 
C Enrrorreturn from LCLOS Pnnt err message 
C 

C ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 


REEOS ISIS LET close 

LEN_TRIM_ Determines the length of a string 
LRD ISIS LLT read 

TRIM — Removes the trailing blanks 


LOCAL VARIABLES AND Structures are documented in detail 
STRUCTURES: where they are defined in the code 
within include files. 


METHOD: 
Set seq_type to 'sfc_Ind' 
See raob_qc.f90 for the rest. 


INCLUDE FILES: 
Name Description 


src LND A surface land header file 
V_DATA.H common variables for verobs 


COMPILER DEPENDENCIES: f90 


COMPILE OPTIONS: -f fixed -c 


COO Gre ee OO Oe) Gn () OOO OO Oe 


C MAKFFILE: Located at /a/ops/app/mverif/src/sub/makeverobslib 
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C UNICOS make 

Cc 

C RECORD OF CHANGES: 

€ 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 

C 


C 
implicit none 
include 'v_data.h' 
include 'SFC_LND.H' 


CO GGG CG IG CI IG I ICICI aE aE IE A I ACK kk OE 


c formal parameters 
AAAS ASG GGG KIGGa GAGGIA ICG IC a ok 
character(8), ntent(in) :: vrsnnam 
character(24), intent(in) :: dsetnm 
character(8), intent(in) :: seclvl 
character(10), intent(in) :: dtg 
character(32), intent(in) :: param 


real, intent(in) :: lvl 
real, intent(in) :: minlat 
real, intent(in) :: maxlat 
real, intent(in) :: minlon 
real, intent(in) :: maxlon 
real :: lat(size) 
real :: lon(size) 
integer :: nobs 

real :: obs(size) 
integer " 1stat 


CFF FEREREEAEEEAAKE EA ALE A KAE AA EEAAE KAA EKKA KAKA KAKA KERALA KALELAFEKA LA EEF 


c local variables used as arguments for LRD: 
CAHIERS A ICICI IG IO I IOI IA a A Ro A ok A A A RE A oR I I I ROR ao a ok 
character(24) :: seq_type 
real au )alg 
CHARACTER(16):: MINDTG | ! Minmum date and time group to read. 
CHARACTER(16) :: MAXDTG  ! Maximum date and time group to read. 


REAL :: MINHR — ! Minmum hour to read. 

REAL :: MAXHR ~~ ! Maximum hour to read. 
CHARACTER(16) :: RSN_IN _ ! Reporting source name. 
REAL :: FCST_IN  ! Desired forecast "TAU". 


CHARACTER(24) :: MINUPTM ! Minimum update time. 
CHARACTER(S56) :: REMARKS _! Description of data/assoc. record. 
CHARACTER(16) ::RPT_DTG ! Actual date & time group for report. 


REAL :: RPT_HR _! Reported hour read. 

REAL :: RPT_LAT  ! Reported latitude read. 

REAL :: RPT_LON _! Reported longitude read. 
CHARACTER(16) :: RPT_RSN _ ! Reported longitude read. 
REAL :: RPT_FCST ! Reported "TAU" or forecast time. 


CHARACTER(24) :: RPT_CRETM ! Record creation date. 
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CHARACTER(24) :: RPT_UDT ! Report's last update time. 
INTEGER = :: BUFFLAG_ ! 0 => Input is in FBUFF 

! ] => Input is in IBUFF 
INTEGER = ::LLT_ID _§! Unique database LLT identifier for each 

! dataset. 
INTEGER ~— :: BLKSEQID ! Unique database LLT block identifier. 
INTEGER ~— :: RECSEQID ! Unique database LLT record identifier. 


TYPE(sfc_Ind_int) :: IBUFF 
TYPE(sfc_Ind):: FBUFF =! Real record structure. 


RRR RK ERK KKK RE RAK HE EKER EKER AER KK ERK ERE AK KE EEK EE EEE 


c Arguments for LCLOS (that get "*" for values). 
COR RR KR EA AK KK KEKE KEE EERE AEA EEK EAE EE KE REE 
CHARACTER(24) :: SEQTYPE_X ! Report type. 
CHARACTER(8) :: VRSNNAM_X ! Version of ISIS software used. 
CHARACTER(24) :: DSETNAM_X ! Data set name used. 
CHARACTER(8) :: SECLVL_X !7 character security 
! classification level. 
CHARACTER(16):: DTG_X _ ! Date Time Group for wntte. 


RRR RR RRR ERK RR RR ARK ARE RAE AKER EEK EE EEE EEE 


c Other local vanables 

CBFEEREK EK EK EKKEEEKEKEE EEE ELE EEA LAKE KA KEK EKA KEK EE EK EKKA KE EKEKEEEK EKA EK 
integer :: levels 
integer :: status, i, status2 


seq_ type ='sfc_Ind'! Report type 
istat = 0 


| A oe oe 2 oa a A A EA A A A AR A RR RR RR RE EK RE ERK EK EK ERE 


! Set up date and time group in YY Y YMMDDHH format in DTG. 
eee LEEK EEL EERE EEE EES ELLE SELES EEE EERE TEE EEE EASES STS TTT EEE EEE ee 
IF (LEN_TRIM(DTG) = 10 ) THEN 
READ (UNIT=DTG(9:10), FMT='F2.0)' JOSTAT=STATUS) HR 
IF (STATUS = 0 ) THEN 
i-Cok = 127) TEN 


HR = 0. 
EESE 
HR = 12. 
END IF 
ELSE 
WRITE *, ' Cannot read hour "', DTG(9:10), 
2 ‘from date & time group ', TRIM(DTG) 
istat = -] 
RETURN 
END IF 
EESE 
STATUS = 10 
WRITE *, 'sfcland: Got date and time group ', 
2 TRIM(DTG), ' of length ', 
3 LEN_TRIM(DTG), ' but expected length == 10.' 


ey) 


istat = -1 
RETURN 
END IF 


[9 Ae fe 2 2 fe 2 fe 2 fe 2 2 2 ee 2 2 ee 2 2 ee ie ee 2 ie ee 2 ie 2 ee 2 2 ee 2 2 eo a 2 eo 2 ee 2 Oo OF oO 


! Set the input parameters used to get a read-back value. 
[9 2 2 2 ee 2k eee ee 8 2 2 2 fe fe ee 2 ee ee ee ee oe 2 oe 2 ee ee ee ee ee 2 2k 2 2 ee oe ee oe 2 
MINDTG =DTG; MAXDTG =DTG 
MINHR = HR; MAXHR =HR+11.999 
Roa = >" 
FCST_IN =0.0 ! Report forecast period or Tau (normal = 0.0) 
MINUPTM ='*' 
BUFFLAG=0 — ! Want (both) floating (and integer). 


9 oe a 2 2 2 oe ie 2 2 ee ie ee oe 2 2 ee 2 2 Ae ee ee ee 2 Ee ee A ee oe Oo ok OE EE EE HE 


! get the data from LLT db 

J ee he fe fe fe ae 2 2 2 ie AE fe 2 oe 2 oe 2 ee Ee he ee 2 ee 2 ee ee ee ee ee ok 2 ke oe oe eo 
T=0 
nobs = 0 


DO WHILE (STATUS 0 ) 

CALL LRD(Sseq_type, vrsnnam, dsetnm, SECLVL, 
MINDTG, MINHR, MAXDTG, MAXHR, 
MINLAT, MAXLAT, MINLON, MAXLON, 
RSN_IN, FCST_IN, MINUPTM, BUFFLAG, 

Re ie Geer ft HR, RPI LAT, RPI LON, 
Redes ee te hCS) RPT CREIM RPI UDI, 
LUI iDeebESseOID, RECSEQID, 
IBUFF, FBUFF, STATUS) 
IF (STATUS 0 ) THEN 
IF (STATUS / 100 ) THEN 
! Ignore normal no-more-data return code 
WRITE *, ' Read from ISIS failed. Code =', STATUS, ".’ 
istat = status 
END IF 
ELSE ! successful LRD 
J=]+] 


CONN & WY LO 


oF A A ee 2 A eo ee de ee ee 2 a Oe ee ee 2 2 A ee ee oe oe 2 2 eae ee ee oe 2 2 2 EE ee 2 ke 


e pick out the relevant info and fill the array 
C check for ISIS missing value 


(EE A a ee ee ee ee ee He Ae ee ee ee eR Fe 2 A 2 ee ee ee EE EE 


if (param == 'air_temp') then 
if (fbuff % air_temp <check_val .and. 
2 fouff % air_temp_qc_i1d = 1) then 

nobs = nobs + | 
lat(nobs) = fobuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fbuff % air_temp 

end if 


else if (param == 'wnd_dir') then 
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if (fouff % wnd_dir < check_val .and. 
2 fouff % wnd_qc_id==1) then 
nobs = nobs + |] 
lat(nobs) = fouff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = fbuff % wnd_dir 
end if 


else if (param == 'sea_lvl_pres’) then 
if (fobuff % sea_lvl_pres < check_val .and. 
2 fouff % sea_Ivl_pres_qc id = 1) then 

nobs = nobs + | 
lat(nobs) = fobuff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = (fouff % sea_lvl_pres) / 100.0 

end if 


else if (param = '‘wnd_spd’) then 
if (fouff % wnd_spd < check_val .and. 
2 fouff % wnd_qc_id = 1) then 

nodbs = nobs + 1 
lat(nobs) = fouff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fbuff % wnd_spd 

end if 


end if ! param 
endif ! OK status 
END DO _!1loop 


IF (STATUS = 100) STATUS =0 


write *,'' 

WRITE *, ' Called LRD ', I, ' tumes.' 

write *,' Read ', nobs, ' obs of sequence type ', TRIM(SEQ_ TYPE), 
2 se 


| RRR K KK KKK EKA KK EK KKK KF KH HK KKK KAKA KK KAKA KAKAN AK KAKA AK KAR KKK KKK KEKE 


! Close the dataset (now open for reading) again. 

DESAI GSES IG GRAIG GRAIG GRIGG IGS ISR ICIS IIE IIIS IC ARE I aa 
SEQTYPE X='*'; VRSNNAM_X='*'; DSETNAM_X ='*' 
SECLVL X ="; DIG X ="' 


CALL LCLOS(SEQTYPE_X, VRSNNAM_X, DSETNAM_X, 
2 SECU Vix DIG, X STATUS?) 
IF (STATUS2 /=0 ) THEN 
WRITE *, ' Could not close ISIS table. ', 
2 Error code 1s ', STATUS72, ".' 
END IF 


return 
end subroutine sfc_Ind_read 


1° 


LS; sfcship.f90 


subroutine sfc_ship_read(vrsnnam, dsetnm, seclvl, dtg, param, 


2 lvl, munlat, maxlat, minlon, maxlon, 
3 lat, lon, nobs, obs, istat) 
C 
Con ee Bro PROLOGUE ie viavicieceleccssseene.s 
c 


C SCCS IDENTIFICATION: @(#)sfcship.f90 1.1 04/24/98 /h/cm/library/mvenif/src/sub/sfcship.f90_v 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: sfc_ship_read 

: DESCRIPTION: subroutine to read the sfc_ship data and pick 

out the obs data for the given parameter 


- 
: 
: 


(c) 1996 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 
CONTRACT NUMBER AND TITLE: N/A 
REFERENCES: NONE 


CLASSIFICATION: Unclasstfied 


Qe GG) '@..@ OC) Ger 


C RESTRICTIONS: NONE 

C 

C COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
call sfc_ship_read(vrsnnam, dsetnm, seclvl, dtg, param, 
lvl, munlat, maxlat, minlon, maxion, 
lat, lon, mobs, obs, stat) 


VRSNNAM CHAR*8 INPUT _ lit version name 
DSETNM CHAR*24 INPUT dataset name 
SECLVL CHAR*8 INPUT _ classification 

DTG CHAR*10 INPUT date time group for read 
PARAM CHAR*32 INPUT parameter 

EVE REAL INPUT _ level type 

MINLAT REAL INPUT minimum latitude 
MAXLAT REAL INPUT maximum latitude 
MINLON REAL INPUT minimum longitude 


Oe OOOO ©7565 @@ oO G16 6:22 © 
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a 
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MAXLON REAL INPUT maximum longitude 
LAT REAL(size) OUTPUT obs latitude 

LON REAL(size) OUTPUT obs longitude 
NOBS INTEGER OUTPUT number of obs 
OBS REAL(size) OUTPUT obs value 

ISTAT INTEGER OUTPUT return status 


COMMON BLOCKS: N/A 
FILES: None 


DATA BASES: ISIS LLT_DB 
Name Table Usage Description 


sfc_ship SFC SHIP IN surface ship obs 


Peeeemerora GOON NMNAAN 


C NON-FILE INPUT/OUTPUT: N/A 

C 

C ERROR CONDITIONS: 

C CONDITION ACTION 

(COME eee ann SNe ocean ee 
C21 G eror Print err message & return 
C ErrorretunfromLRD  Pnmint err message 

C Error retum froomLCLOS Print err message 

@ 


C ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 
LCLOS ISIS LLT close 
LEN_TRIM Determines the length of a string 
LRD ISIS LLT read 
TRIM Removes the trailing blanks 


LOCAL VARIABLES AND Structures are documented in detail 
STRUCTURES: where they are defined in the code 
within include files. 


PEP te 1@) (OOCGi@Nes Cele ene me. 


CME TOD: 
C  Setseq_type to'sfc_ship' 
C Seeraob_qc_read for the rest. 


C 

CuINCLUIDE FILES: 

C Name Description 

(Ge anna snes SS, Oe ees nested owns ae I cee 


C SFC_SHIP.H surface ship header file 

C V_DATA.H common variables for verobs 
c 

C COMPILER DEPENDENCIES: f90 


14] 


C 

C COMPILE OPTIONS: -f fixed -c 

8 

C MAKFFILE: Located at /a/ops/app/mverif/src/sub/makeverobslib 

C UNICOS make 

C 

C RECORD OF CHANGES: 

C 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 


implicit none 
include 'v_data.h' 
include 'SFC_SHIP.H' 


CFE EE AE 2 EK OE 2 2 2 2 2 2 ae Ea Eo 2 2 2 2 2 OR KO OR ee oe EE ae Ee oe 2 2 EK EE a OE EE ok EE OE EO EO 


c formal parameters 
AEE FIIGRIGRIOC ROGER IGR ICICI IK aa ak 
character(8), imtent(in) :: vrsnnam 
character(24), intent(in) :: dsetnm 
character(8), intent(in) :: seclvl 
character(10), intent(in) :: dtg 
character(32), intent(in) :: param 


real, intent(in) :: lvl 
real, intent(in) :: minilat 
real, intent(in) :: maxlat 
real, intent(in) :: mimlon 
real, intent(in) :: maxlon 
real :: lat(size) 
real :: lon(size) 
integer :: nobs 
real :: obs(size) 
integer :: stat 


CF EEE eK a AE A 9 A ee a 2 KO 2 Ke Oe 2 2 a 2 2 9 i 2 9 2 ae 2 2 2 2 2 2 2 9 2 2 2 KK 2K 2 AE ok 2 9K 9k 


¢ local variables used as arguments for LRD: 

CF ER KK HK KO 3 eK 2 2 9K 2 2 9K 9 2 9K 9 9 9k 2 9k 2K i 9 9k 9 9 9 2 9 9 2 2K oe 2 2 2 9 3 9k 2K 2 9K 9 9 9 9 9 9 9k 2k 2 OK 9 9 9K 9 2 9 OK 3k KE 
character(24) :: seq_type 
real :: hr 
CHARACTER(16) :: MINDTG — ! Minmum date and time group to read. 
CHARACTER(16) :: MAXDTG — ! Maximum date and time group to read. 


REAL =: MINHR ~~ ! Minmum hour to read. 

REAL :: MAXHR —_ ! Maximum hour to read. 
CHARACTER(16) :: RSN_IN _ ! Reporting source name. 
REAL :: FCST_IN _! Desired forecast "TAU". 


CHARACTER(24) :: MINUPTM ! Minimum update time. 
CHARACTER(S6) :: REMARKS _§! Description of data/assoc. record. 
CHARACTER(16) :: RPT_DTG ! Actual date & time group for report. 
REAL :: RPT_HR _! Reported hour read. 

REAL :: RPT_LAT ! Reported latitude read. 
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REAL :: RPT_LON ! Reported longitude read. 
CHARACTER(16) :: RPT_RSN _ ! Reported longitude read. 
REAL :: RPT_FCST ! Reported "TAU" or forecast time. 
CHARACTER(24) :: RPT_CRETM ! Record creation date. 
CHARACTER(24) :: RPT_UDT ! Report's last update time. 
INTEGER  :: BUFFLAG !0=> Inputis n FBUFF 
! ] => Input is in IBUFF 
INTEGER ::LLT_ID §$! Unique database LLT identifier for each 
! dataset. 
INTEGER ~— :: BLKSEQID ! Unique database LLT block identifier. 
INTEGER ~— :: RECSEQID ! Unique database LLT record identifier. 


TYPE(sfc_ship_ int):: IBUFF ! integer record structure. 
TYPE(sfc_ship):: FBUFF ! Real record structure. 


7 AE A Ae 2 ee 2 2 2 2 2 2 ee 2 2 ee 2 ee 2 ee eo ee 2 2 A OO A OE EK 


c Arguments for LCLOS (that get "*" for values). 
Qa dri dodddaddidoi i oiidoiak oki tok ai ake aka i aa ae aok 
CHARACTER(24) :: SEQTYPE_X ! Report type. 
CHARACTER(8) :: VRSNNAM_X ! Version of ISIS software used. 
CHARACTER(24) :: DSETNAM_X ! Data set name used. 
CHARACTER(8) :: SECLVL_X !7 character security 
! classification level. 
CHARACTER(16) :: DTG_X _ ! Date Time Group for write. 


CEE A Ae A 2 2 eo ae ie 2 ie ee A 2 i oO ee 2 OO eo OO a EE KK KK KE 


c Other local variables 

COS Hoda aici okiatiali acidic iki ac icioaioi doi asi acacia aa ak ak ak ak ak a aki ak 
integer :: levels 
integer :: status, 1, status2 


seq_type ='sfc_ship'! Report type 
istat = 0 


([SRAEKAKRAEEAELAKEAKAE KEE KEELE KEKKLLAKELAAA SKA LEAK ELLA EKA KAA AAA ELLE KAEALATE 


! Set up date and time group in YY Y YMMDDHH format in DTG. 
BEBE GEE OOOO SERS III CII I I ACI I Aa a4 21 1 a1 1 3 1 ao ok a 2k ok ok ak ok a ak a ok ak 
IF (LEN_TRIM(DTG) = 10 ) THEN 
READ (UNIT=DTG(9:10), FMT='(F2.0)' JOSTAT=STATUS) HR 
IF (STATUS = 0 ) THEN 
If CAR 12, ) HEN 


HR = 0. 
ELSE 
HR = 12. 
END IF 
ELSE 
WRITE *, ' Cannot read hour "", DT G(9:10), 
Zz "from date & time group ', TRIM(DTG) 
istat = -] 
RETURN 
END IF 
ELSE 
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STATUS = 10 
WRITE *, 'sfcship: Got date and time group ', 
2 TRIM(DTG), ' of length ', 
3 LEN_TRIM(DTG), ' but expected length = 10." 
istat = -] 
RETURN 
END IF 


[AE 8 ae 2 2 EE 2 2 2 2 2 2 2 2 IE 2 2 2k 2 2 ee 2 2 2 ee 2 ee 2 2 2 oe 2 2 2 2 2 2 2 2 2 2 2 Ee 2 2 2 2 2 2 2 2 2 2 fe 2 2 a 2 2k 2 


! Set the input parameters used to get a read-back value. 
f > 2c 2 2 fe 2 2s 2 26 2 2 2 2 ae 2 2 fe 2k 2k 2 2 ae 2 2 ae 2 2 2 2 2 2 2 2 2 2 2 2k oe 2 2 2 2 2 2 26 2k fe ae 2 aE ae 2 ae 2 fe ae 2c 2 2 a 2k 2 2 2 2 2 2k 


MINDTG =DTG; MAXDTG =DTG 

MINHR =HR; MAXHR =HR+11.999 

RSN_IN ='*' 

FCST_IN =0.0 ! Report forecast period or Tau (normal = 0.0) 
MINUPTM = '*' 

BUFFLAG=0 — ! Want (both) floating (and integer). 


PR CR AGG A OCC I A AA ICI I A A CC A A A I A A OO KE OK 


! get the data from LLT db 

[92 2 2 2 2 2 2 2 2 A 2 A 2 2 2 2 2 Oo OK 
T=0 
nobs = 0 


DO WHILE (STATUS = 0) 

CALL LRD(seq_type, vrsnnam, dsetnm, SECLVL, 
MINDTG, MINHR, MAXDTG, MAXHR, 
MINLAT, MAXLAT, MINLON, MAXLON, 
RSN_IN, FCST_IN, MINUPTM, BUFFLAG, 
RPT DTG, RPT_HR, RPT_LAT, RPT_LON, 
Rei RSN eRe heresT, RPT CRETM, RPT _UDT, 
LLT_ID, BLKSEQID, RECSEQD, 

IBUFF, FBUFF, STATUS) 
IF (STATUS 0 ) THEN 
IF (STATUS / 100 ) THEN 
! Ignore normal no-more-data return code 
WRITE *, ' Read from ISIS failed. Code =', STATUS, *' 


On NN & W LO 


istat = status 
END IF 
ELSE ! successful LRD 
l=I+1] 
OBES BI BAGG GORGE AC IG aI A A aC ICI I CI I a Ca ARC A RR I 
c pick out the relevant info and fill the array 
c we want to use the qc flag to discard the bad obs when available 


(2 2 a 2 2 2 Ee 2 2 2 2 2 2 2 2 2 2 2 2 ee 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ee 2 2 2 2 ee ee ee a 2 


if (param == 'air_temp’) then 
if (fouff % air_temp < check_val) then 
nobs = nobs + | 
lat(nobs) = fouff % crse_lat 
lon(nobs) = fbuff % crse_lon 
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obs(nobs) = fouff % air_temp 
end if 


else if (param == 'sea_lvl_pres’) then 
if (fouff % sea_lvl_pres < check_val) then 
nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = (fbuff % sea_Ivl_pres) / 100.0 
end if 


else if (param == 'sea_temp') then 
!check pos_qc_id for position error first 
if (fouff % pos_qc_id == 0 .or. 
fouff % pos_qc_id = 1) then 
!sea_temp_qc flag of 0 or | 1s the only obs we want to use 
if ( (fouff % sea_temp_qc_id = 1 .or. 
fouff % sea_temp_qc_id == 0).or. 
(fouff % sea_temp < check_val) ) then 
nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fouff % sea_temp 
end if 
end if 


!for inst_wav_per (grid parm 'peak_wav_per') 
else if (param = 'inst_wav_per') then 
if (fouff % inst_wav_per < check_val) then 
nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = fouff % inst_wav_per 
end if 


!for inst_wav_ht_2 (grid parm 'sig_wav_ht') 
else if (param = 'inst_wav_ht_2') then 
if (fouff % inst_wav_ht_2 <check_val) then 
nobs = nobs + 1 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fbuff % inst_wav_ht_2 
end if 


else if (param == 'wnd_dir'’) then 
if (fouff % wnd_dir < check_val) then 
nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = fouff % wnd_dir 
end if 
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else if (param == 'wnd_spd’) then 
if (fbuff % wnd_spd < check_val) then 
nobs = nobs + 1] 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fouff % wnd_spd 
end if 


end if ! param 
endif ! OK status 
END DO -!1 loop 


IF (STATUS = 100 ) STATUS =0 

write *,'' 

WRITE *, ' Called LRD ', I, ' tumes.' 

write *, ' Read ', nobs, ' obs of sequence type ', TRIM(SEQ_ TYPE), 
2 = 


| a 2 2 OE ee 2 a ee ee oe a a EE OE OO EE EE EK EE EE EE EK EK KE 


! Close the dataset (now open for reading) again. 
PERG GGG Rb» 


SEQTYPE_X='*'; VRSNNAM_X="*'; DSETNAM_X='"*' 
SECLVL_X ="*"; DTG_X =" 


CALL LCLOS(SEQTYPE_X, VRSNNAM_X, DSETNAM_X, 
2 SECLVL_X, DTG_X, STATUS2) 
IF (STATUS2 0 ) THEN 
WRITE *, ' Could not close ISIS table. ', 
2 "Error code 1s ', STATUS2, ".' 
END IF 


retum 
end subroutine sfc_ship_ read 


14. = ssmetqc.f90 


subroutine sfc_ship_met_qc_read(vrsnnam, dsetnm, seclvl, dtg, 


2 param, lvl, munlat, maxlat, 

3 minlon, maxlon, lat, lon, 

4 nobs, obs,  1stat) 
© 
CR es STAR WRROLOGUE......x......29eee.: 
C 


C SCCS IDENTIFICATION: @(#)ssmetqce.f90 1.1 04/24/98 /h/cm/library/mvenif/src/sub/ssmetqc.f90_v 
. CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: sfc ship met_qc_ read 

: DESCRIPTION: subroutine to read the sfc_ship_met_qc data and pick 

Cc out the obs data for the given parameter 
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ee ee eee ee eee ee ee em me men meme er (nent) G) 6) 1) 1 OOOO AANAAANAARARANANA 


COPYRIGHT: (c) 1996 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 
REFERENCES: NONE 
CLASSIFICATION: Unclassified 
RESTRICTIONS: NONE 


COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/oin 


USAGE: 

call sfc_ship_met_qc_read(vrsnnam, dsetnm, seclvl, dtg, 
param, lvl, munlat, maxlat, 
minion, maxlon, lat, lon, 
nobs, obs, istat) 


VRSNNAM CHAR*8 INPUT _ llt version name 
DSETNM CHAR*24 INPUT data set name 
SECLVL CHAR*8 INPUT classification 


DEG CHAR*10 INPUT _ date time group for read 
PARAM CHAR*32 INPUT parameter 
EVEL REAL INPUT _ level type 


MINLAT REAL INPUT minimum latitude 
MAXLAT REAL INPUT maximum latitude 
MINLON REAL INPUT minimum longitude 
MAXLON REAL INPUT maximum longitude 


LAT REAL(size) OUTPUT obs latitude 
LON REAL(size) OUTPUT obs longitude 
NOBS INTEGER OUTPUT number of obs 
OBS REAL(size) OUTPUT obs value 


ISTAT INTEGER OUTPUT return status 
COMMON BLOCKS: N/A 
FILES: None 


DATA BASES: ISIS LLT_DB 
Name Table Usage Description 


sfc_ship_met_qc SFC_SHIP_MET QC IN surface ship met qc obs 
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C NON-FILE INPUT/OUTPUT: N/A 


c 
C ERROR CONDITIONS: 
CONDITION ACTION 
DTG error Print err message & return 


Error return from LRD ‘Print err message 
Error return from LCLOS Print err message 


ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 
ECEOS TISIS ELT close 
LEN_TRIM_ Determines the length of a string 
LRD _ISIS LLT read 
TRIM Removes the trailing blanks 


LOCAL VARIABLES AND Structures are documented in detail 
Sok UCT URES: where they are defined in the code 
within include files. 


Ore nem rene CouG@@ @eGu@) 0) 10000 


2 
i 
S 


C Set seq type to'sfc ship met_qc' 
C See raob_qc_read for the rest. 


C 

CG INCLUDE FILES: 

C Name Description 

eae ee as ine an IE cna See 


C SFC SHIP MET QC.H surface ship header file 
C V_DATA.H common variables for verobs 
C 
C COMPILER DEPENDENCIES: f90 
C 
C COMPILE OPTIONS: -f fixed -c 
g 
C MAKEFILE: Located at /a/ops/app/mvenf/src/sub/makeverobslib 
C UNICOS make 
C 
C RECORD OF CHANGES: 
c 
C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 
C 
Cn JS NIDY ried OE CLG; 6) Sine ae eee e 
C 
implicit none 
include 'v_data.h’ 
include 'SFC_ SHIP MET QC.H' 
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CFO a a Rk 


¢ formal parameters 
Cithtititi ttt h hhh t thet het heh et ee ee te tS SS SS SF 
character(8), intent(in) :: vrsnnam 
character(24), intent(in) :: dsetnm 
character(8), intent(in) :: seclv] 
character(10), intent(in) :: dtg 
character(32), intent(in) :: param 


real, intent(in) :: lvl 
real, intent(in) :: minlat 
real, intent(in) :: maxlat 
real, intent(in) :: minlon 
real, intent(in) :: maxlon 
real :: lat(size) 
real :: lon(size) 
integer :: nobs 
real :: obs(size) 
integer :: istat 


CE EA A EA EO OR ERO OER EE OK KK EK 


¢ local variables used as arguments for LRD: 

IrCC LorLi rrr rire reer Tere Te ree ere reer eee eT eee ee es 
character(24) :: seq_type 
real = be 
CHARACTER(16) :: MINDTG — ! Minmum date and time group to read. 
CHARACTER(16) :: MAXDTG — ! Maximum date and time group to read. 


REAL :; MINHR — ! Minmum hour to read. 

REAL :: MAXHR ~~! Maximum hour to read. 
CHARACTER(16) :: RSN_IN _! Reporting source name. 
REAL :: FCST_IN ! Desired forecast "TAU". 


CHARACTER(24) :: MINUPTM _ ! Minimum update time. 
CHARACTER(S56) :: REMARKS _! Description of data/assoc. record. 
CHARACTER(16) :: RPT_DTG ! Actual date & time group for report. 


REAL :: RPT_HR _! Reported hour read. 

REAL :: RPT_LAT ! Reported latitude read. 

REAL :: RPT_LON =! Reported longitude read. 
CHARACTER( 16) ::RPT_RSN __! Reported longitude read. 
REAL :: RPT_FCST ! Reported "TAU" or forecast time. 


CHARACTER(24) RPT _CRETM ! Record creation date. 
CHARACTER(24) :: RPT_UDT _! Report's last update time. 
INTEGER  ::BUFFLAG !0=> Input is n FBUFF 

! | => Input is in IBUFF 
INTEGER  ::LLT_ID _! Unique database LLT identifier for each 

! dataset. 
INTEGER ~ :: BLKSEQID ! Unique database LLT block identifier. 
INTEGER ~— :: RECSEQID ! Unique database LLT record identifier. 


TYPEGicssinp metaqes nt): IBUFF 
TYPE(sfc_ship_met_qc) :: FBUFF ! Real record structure. 


AAG ga a gk kk kak 


c Arguments for LCLOS (that get "*" for values). 
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CFF ERE KH HH KH A EE EE Oe 2 EO A 9 2 OE EE Ee EE OK EK KK HK 
CHARACTER(24) :: SEQTYPE X ! Report type. 
CHARACTER(8) :: VRSNNAM_X ! Version of ISIS software used. 
CHARACTER(24) :: DSETNAM_X ! Data set name used. 
CHARACTER(8) :: SECLVL_X !7 character security 
! classification level. 
CHARACTER(16):: DTG_X _ ! Date Time Group for wnite. 


CPEEEEEREEERERALEA AKA RE KEELE A EK ELA EAKEA KAKA K KKK AAA KEE KEKE KAA EKA KKKA KE 


c Other local variables 

CF FHKE KK HK HH KH Ee 2 ae 2 ee EO ee 2 a a a ER a EE EE EE EE EEE 
integer :: levels 
integer :: status, 1, status2 


seq type ='sfc_ship met_qc'! Report type 
istat = 0 


Poke oi oe a OE fe ok oR RK 2 OE 2 RE KR ER RR I I I 2 2 2 2 2 2 2 2 2 2 2 2 kk 2 2k 2 2 2 


! Set up date and time group in YY YYMMDDHH format in DTG. 
Prtrrtirirtr oti it reer iret iret Stl tS Se 
IF (LEN_TRIM(DTG) == 10) THEN 
READ (UNIT=DTG(9:10),FMT='(F2.0)' IOSTAT=STATUS) HR 
IF (STATUS == 0 ) THEN 
IF (HR <12. ) THEN 
HR =0. 
REESE 
HR = 12. 
END IF 
Pleo 
WRITE *, ' Cannot read hour "', DTG(9:10), 
gs ' from date & time group ', TRIM(DTG) 
istat = -] 
RETURN 
END IF 
Prse 
STATUS = 10 
WRITE *, 'ssmetqe: Got date and time group ', 
2 TRIM(DTG), ' of length ', 
3 LEN_TRIM(DTG), ' but expected length == 10.' 
istat = -] 
RETURN 
END IF 


fe ae ee fe oc fe fe fe ee 2 2 ie fe 2 2 fe ee EE EE EE EK EE KE EK EEE KEE 


! Set the input parameters used to get a read-back value. 

{RR SR A RR A A AE 2 2 A I a EE 
MINDTG =DTG; MAXDTG =DTG 
MINHR =HR; MAXHR =HR-+11.999 


RSN_IN ='*' 
FCST_IN =0.0 ! Report forecast period or Tau (normal = 0.0) 
MINUPTM ='*' 


BUFFLAG =0 | Want (both) floating (and integer). 
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[oft oie oe 2 2 2 oe 2 2 a 2 2 2 oe 3 oe 3c 2 ae oe ie oe ae 2 2 2 2 OE ie a eo eo 2 a 2 oe 2 2 2 ie ok oe oe 2 2 ok ok oo KO KO Ok 


! get the data from LLT db 

J ae 2A 2 ae ie fe oe 2 a a 2 ae oe eo 2 EE KE EE EE EE KE EF 
T=0 
nobs = 0 


DO WHILE (STATUS = 0) 

CALL LRD(seq_type, vrsnnam, dsetnm, SECLVL, 
MINDTG, MINHR, MAXDTG, MAXHR, 
MINLAT, MAXLAT, MINLON, MAXLON, 
RSN_IN, FCST_IN, MINUPTM, BUFFLAG, 
RPT DTG, RPT_HR, RPT_LAT, RPT_LON, 
RPT ORSNeREIT FCS). REe@CREIM RPI Ube 
LLT ID, BLKSEQID, RECSEQID, 

IBUEES FEUER slAlTUs) 
IF (STATUS /=0 ) THEN 
IF (STATUS = 100 ) THEN 
! Ignore normal no-more-data return code 
WRITE *, ' Read from ISIS failed. Code =', STATUS, ".’ 


OOmMDA MN & W bO 


1stat = status 
END IF 
ELSE ! successful LRD 

J=I+1]1 
CEFKEEEEEEEEEKEEERESEEAE LE EXKEAEKE SEE EEE EAE EEA EE REE AL EKAKEK EK EKKKKK KKK KKE KEKE 
Cc ick out the relevant info and fill the arra 

p yi 
c we want to use the qc flag to discard the bad obs 


A RR RR RRR EERE EE EAE BE EEE EE 


if (param == 'air_temp’) then 
if (fouff % air_temp < check_val .and. 
2 fouff % air_temp_qc_id = 1) then 

nobs = nobs + 1 
lat(nobs) = fouff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fouff % air_temp 

end if 


else if (param == 'sea_Ivl_pres') then 
if (fouff % sea_lvl_ pres < check_val .and. 
Z fbuff % sea_lvl_pres_qc_id == 1) then 

nobs = nobs + 1 
lat(nobs) = fouff % crse_lat 
lon(nobs) = fouff % crse_lon 
obs(nobs) = (fouff % sea_lvl_pres) / 100.0 

end if 


else if (param == 'sea_temp') then 
if (fbuff % sea_temp < check_val .and. 
Z fouff % sea_temp_qc id= 1) then 
nobs = nobs + 1 
lat(nobs) = fouff % crse_lat 
lon(nobs) = fouff % crse_lon 


Il 


obs(nobs) = fbuff % sea_temp 
end if 


else if (param == 'wnd_dir’) then 
if (fbuff % wnd_dir < check_val .and. 
2 fouff % wnd_qc_id = 1) then 

nobs = nobs + ] 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fbuff % wnd_dir 

end if 


else 1f (param == 'wnd_spd’) then 
if (fbuff % wnd_spd <check_val .and. 
Z fouff % wnd_qc_id ==1) then 

nobs = nobs + | 
lat(nobs) = fbuff % crse_lat 
lon(nobs) = fbuff % crse_lon 
obs(nobs) = fbuff % wnd_spd 

end if 


end if ! param 
endif ! OK status 
END DO _ !1 loop 


IF (STATUS = 100 ) STATUS =0 

write *,'' 

WRITE *,' Called LRD ', I, ' times.’ 

write *, ' Read ', nobs, ' obs of sequence type ', TRIM(SEQ_TYPE), 
2 - 


| A 2 fe fe Ee fe ee AE ee ee ee ee 2 ie 2 2 2 EE Ee fe 2 fe 2 2 2 2 2 2 2 2 2 a 2 2 ee 2 oo a 2 ek ok oF 


! Close the dataset (now open for reading) again. 

[9 2 ie ee ee 2 ee 2 a ee ee oe ee oe 2 ie oe 2 Ee 2 2 2 2 ee oe EE 2 fe 2 ee ee ee ee oe 2 oe 2 Oo Ok 
SEQTYPE X='*'; VRSNNAM_X='*'; DSETNAM X= '"*'! 
SECGEVinX = ~*~. DIG.x. > 


CALL LCLOS(SEQTYPE_X, VRSNNAM_X, DSETNAM xX, 
Z SECL VER DIG xX STATUS2) 
IF (STATUS2 © 0 ) THEN 
WRITE *,' Could not close ISIS table. ', 
Dy ' Error code is ', STATUS2, '.' 
END IF 


retum 
end subroutine sfc_ship_met_qc_read 
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B. STAT LIB 


rE: Compute_bias module 


SUBROUTINE COMPUTE_BIAS (array], array2, 


2 arr_size, geomname, bias) 
& 
C Ae eee STAR LVPROLOGUE. 2.22... 
C 


C SCCS IDENTIFICATION: @(#)find-bias.f90 1.1 04/24/98 /h/cm/library/mverif/src/sub/find-bias.f90__ 
: CONFIGURATION IDENTIFICATION: NONE 

: MODULE NAME: compute_bias 

: DESCRIPTION: subroutine to compute the bias (mean error) 


COPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 
CONTRACT NUMBER AND TITLE: N/A 
CLASSIFICATION: Unclassified 
RESTRICTIONS: NONE 


COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
call compute_bias( array], array2, arr_size, geomname, bias) 
PARAMETERS 
Name Type Usage Descnption 


se eevee eee es seen ene eee see ewes SSeS SS SS SSS SSS SSF SS eS Se e288 See 


array 1 REAL(360*181) INPUT first array 
array2 REAL(360*181) INPUT — second array 
arr_size INTEGER INPUT array size 
geomname CHAR*32 INPUT geometry name 
bias REAL OUTPUT computed bias 


COMMON BLOCKS: N/A 
FILES: None 


ERROR CONDITIONS: 
CONDITION ACTION 


@ eC (eo Oo LONG SCV Gere) (© 18. © 12) Cee. eevee leletenexenonenene 
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C ADDITIONAL COMMENTS: NONE 


MODULES CALLED: 
Name Description 


FIND_MAP FACT determine the map factor for the geometry 
LOCAL VARIABLES AND Structures are documented in detail 
STRUCTURES: where they are defined in the code 
within include files. 
METHOD: 
INCLUDE FILES: NONE 
COMPILER DEPENDENCIES: f90 


COMPILE OPTIONS: -f fixed -c 


OTRO GeO @t@rOrtOte )) 0O00O00 


C MAKEFILE: Located at /a/ops/app/mverif/src/sub/makestatlib 
C UNICOS make 

€ 

C RECORD OF CHANGES: 

C 

C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 


| fe oe 2 he 2 i 2 ee ee eK EE EE KK KK KK EK KE EK KE KK EE KK EK KK KF 


! formula used: 

! (array - array2) /arr_size 

! [(array] - array2) * xmap_factor * ymap_factor] 
!/[4*pi*a_square] 


eee eee here ee ee eee ee ee ee eee eT 


implicit none 


integer:: 1m, jm, 1mjm 
parameter(im = 360) 
parameter(jm = 181) 
parameter(imjm = im * jm) 


| 28 2 ie 2 2k 2k 2 fe 2 fe oe fe fe of 2 oe oe aie of oc 2 2h oft 2c of 2c of oe 2c afc ic 2 2 fe oc 2 afc 2c afc 2 2 oe fc oe oc 2c 2 2K ofc oie 2 2 ok 2c 2 2k 2 ok ok 


!formal parameter 


| 2 2k 2 ie oie 2k 2 oc 2 2 i 2 2 oe 2 i 2 2 2 3 2 2 2k 2 2c fe 2 ic 2k ie 2 2c 2 2 ic 2 ie ie 2 ie ie 2 ic 2 kc 2k oe 2 i 2 ok OK kc OK ok OK 


real, intent(in) :: array] (imjm) 
real, intent(in) :: array2(imjm) 
integer, intent(in) _—:: arr_size 
character(32) :: geomname 
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real :: bias 
PER GR RII CRO IORI OE EE 


'local var 

9 ee fe 2 2 fe fe 2 fe 2 fe 2 fe 2 fe 2k ee 2 ie 2 ie 2 2 2 ie 2 ie 2 ee 2 ae 2 eK EK KK 
integer ::1 

integer :: lengeom 

real :: sum, dif, sumx 

real :: xmap factor(imjm), ymap_factor(imjm) 

real :: pl, a_square 

integer strlen 


pi = 2.0 * asin(1.0) 

a square = (6.375e+06) ** 2 
sum = 0. 

dif = 0, 


if (geomname(1:4) /= 'NONE'’) then 
write *, "calling find-map-factor from find-bias for ", 
2 geomname 
CALL FIND_MAP_FACTOR(geomname, xmap_factor, ymap_factor) 
do i= 1, arr_size 
dif = (arrayi(1) - array2(1)) 
Z * xmap_factor(i) * ymap_factor(1) 
sum = sum + dif 
end do 
bias = sum / (4*pi*a_square) 
else 
doi= 1, arr_size 
dif = array] (1) - array2(1) 
sum = sum + dif 
end do 
bias = sum / arr_size 
end if 


return 
END SUBROUTINE COMPUTE _ BIAS 


ee Compute_rms 


SUBROUTINE COMPUTE_RMS (array]1, array2, 


Z air size, geomname, rms) 
© 
Oa en ee Sian! PROLOGUE... 
c 


C SCCS IDENTIFICATION: @(#)find-rms.f90 1.1 04/24/98 /h/em/library/mverif/src/sub/find-rms.f90_v 
C 

C CONFIGURATION IDENTIFICATION: NONE 

S 

C MODULE NAME: compute_rms 

C 
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C DESCRIPTION: subroutine to compute the rms 
COPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 
ALL RIGHTS RESERVED 
CONTRACT NUMBER AND TITLE: N/A 
CLASSIFICATION: Unclassified 
RESTRICTIONS: NONE 


COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
call compute_rms( array], array2, arr_size, geomname, rms) 


ee Pe Pe SS Sere eos= Ss === Soo eom=S SP Pa Pe eS SOO SP SSP SPP Sw ee PE 


array | REAL(360*181) INPUT _ first array 
array2 REAL(360*181) INPUT second array 
air size INTEGER INPUT array size 
geomname CHAR*32 INPUT geometry name 
rms REAL OUTPUT computed rms 


COMMON BLOCKS: N/A 
FILES: None 


ERROR CONDITIONS: 
CONDITION ACTION 


aS See Pes ee SS ToS Ree oD DPE Posse es Se Sew SE PSS SS SS 


@ BIOS) (nt ONO) (Ge Oe) Oo (218) |S) Bie) @) Ce ele) 1eF @hekenenoneneneonhene 


C ADDITIONAL COMMENTS: NONE 


c 

Cee: MAINTENANCE SECTION, vesctscicssistsecsvceccssoesss 
Cc 

C MODULES CALLED: 

C Name Description 

(IEDR, Nos Sone aan doen 


C FIND MAP _ FACT determine the map factor for the geometry 

c 

C LOCAL VARIABLES AND Structures are documented in detail 
c STRUCTURES: where they are defined in the code 

Se within include files. 

C METHOD: 

c 

C INCLUDE FILES: NONE 
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Perera 0OAQAQAQAAND 


COMPILER DEPENDENCIES: f90 
COMPILE OPTIONS: -f fixed -c 


MAKEFILE: Located at /a/ops/app/mverif/src/sub/makestatlib 
UNICOS make 


RECORD OF CHANGES: 


<<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
Initial submission 


BRS GG a daa GOOG GR ag ako ia kat kr kaki kk ick kak sak ak 
Isqrt[(array l-array2)**2/arr_size] 

!sqrt[(array l-array2)**2*xmap_factor*ymap_ factor] 

! /[4*pi*a_square] 

PR 2 2 2 ote ee eo 2 ee he 2 2 2 ae 2 oe 2 oe 2 OE 2 ae 2 OE EO EE EE EE KK 


implicit none 


integer:: im, jm, imjm 
parameter(im = 360) 
parameter(jm = 181) 
parameter(imjm = im * jm) 


1 2 2 ee 2 2 2 2 2 2 2K OK 2K 2K OK 2K 2K 2K 9K ok KK 2K 2 2K KK 2K 2 2K 2 2K OK OK OK 2 OK 2K 2 2K OK KK OK OK OK KOK OK 


'formal parameters 

9 A fe 2 2 ee 2 2c ae 2 2c fe ae 2 24 a 2 ee 2h Ae Ae 8 2 fe ae 2 ie ae 2 Ae ae 2 2 ae ae Oe 2h a a 2 he Oe oe 2 ie 2 ok 2 2 ak ok HK 
real, intent(in) :: array] (amjm) 

real, intent(in) :: array2(imjm) 

integer,  intent(in) :: arr_size 

character(32), intent(in) :: geomname 

real "1 ims 


2 2 2 ie ee oe 2 ae 2 ie ae ee ee oe EE EE EE EEE KE EE KE EE 


local var 

| AR C2 RC 2 OC A C9 2 ok a oo Oo ako a ao a 
integer ::1 

real :: xmap_factor(imjm), ymap_factor(imjm) 

real :: sum, dif, sumx, difx 

real :: pi, a_square 


pi = 2.0 * asin(1.0) 

a square = (6.375e+06) ** 2 
difx = 0. 

sumx = 0. 


if (geomname(1:4) /= 'NONE'’) then 


CALL FIND_MAP_FACTOR(geomname, xmap_ factor, ymap_factor) 
do 1= 1, arr_size 


ley 


difx = (array1(1) - array2(1))**2 
2 * xmap_factor(1) * ymap_factor(i) 
sumx = sumx + difx 
end do 
rms = sqrt(sumx) / (4*pi*a_square) 
else 
do i= 1, arr_size 
difx = (arrayl (1) - array2(1))**2 
sumx = sumx + difx 
end do 
rms = sqrt(sumx / arr_size) 
end if 


retum 
END SUBROUTINE COMPUTE RMS 


3. Compute_std 
SUBROUTINE COMPUTE_STD (array, array2, 
2 air size, geomname, std) 
GC 
Ce crac SAR TPROLOGUE ssce teks 
Cc 


C SCCS IDENTIFICATION: @(#)find-std.f90 1.1 04/24/98 /h/cm/library/mverif/src/sub/find-std.f90_v 
c 

C CONFIGURATION IDENTIFICATION: NONE 

c 

C MODULE NAME: compute_std 

C 

C DESCRIPTION: subroutine to compute the std 

C 

C COPYRIGHT: (c) 1998 FLENUMMETOCCEN 

C U.S. GOVERNMENT DOMAIN 

é ALL RIGHTS RESERVED 
Cc 
C 
€ 


CONTRACT NUMBER AND TITLE: N/A 


C CLASSIFICATION: Unclassified 

C 

C RESTRICTIONS: NONE 

CC COMPUTER/OPERATING SYSTEM 


C DEPENDENCIES: Cray UNICOS 

C 

C LIBRARIES OF RESIDENCE: /a/ops/bin 

C 

C USAGE: 

C call compute_std( array], array2, arr_size, geomname, std) 
c 

C PARAMETERS 

C Name Type Usage Description 
Ce ae 8 2 Ran TANARIS al 


158 


array | REAL(360*181) INPUT first array 
array2 REAL(360*181) INPUT _ second array 
arr size INTEGER INPUT array size 
geomname CHAR*32 INPUT geometry name 
std REAL OUTPUT computed std 


COMMON BLOCKS: N/A 
FILES: None 


ERROR CONDITIONS: 
CONDITION ACTION 


ese eweeeeee 8 a= & =e ese ee ee eee ee 2 222 e@e eeeee2eeee22 


C MODULES CALLED: 
C Name Description 
Ca ee 
C FIND MAP FACT determine the map factor for the geometry 
C 
C LOCAL VARIABLES AND Structures are documented in detail 
c STRUCTURES: where they are defined in the code 
C within include files. 
C METHOD: 
Cc 
C INCLUDE FILES: NONE 
c 
© COMPILER DEPENDENCIES 1996 
6 
C COMPILE OPTIONS: -f fixed -c 
C 
C MAKEFILE: Located at /a/ops/app/mvenif/src/sub/makestatlib 
c UNICOS make 
C 
C RECORD OF CHANGES: 
c 
C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C _Imitial submission 
Cc 
Ce ere END PROLOGUE. eas 
Cc 
PE BaRe REALE ER ELAR EEL ECLEA EET ERE EE RERER ERE EEE EEEELAEE ELEC 
Isqrt[ { (array ]-array2)**2/arr_size} - 
| £{((array1-array2)/arr_size)**2}] 
Isqrt[ { (array ]-array2)**2*xmap_factor*ymap_factor} 
! -£((arrayl-array2)*xmap_factor*ymap_factor)**2}] 
! /[4*pi*a_square] 
J 2% 24 fe fe 2 fe 2 fe 2 2h fe He 2 He fe 2 he fe 2c he 2 2 2 2c He 2 2 ie he 2 Ke ee Ke 2 Ke ee eH ee Kh HK eK eK KK HK 


implicit none 


Io 


integer:: im, jm, imjm 
parameter(im = 360) 
parameter(jm = 181) 
parameter(imjm = 1m * jm) 


| 2 ae A 2 ae eR oe a ae ae ee ee ee 2 ee a a OR a ee eo OE OK OO OE 


{formal parameter 

[EA 2 EC ACR EI IC AC A EAC A Co oA a ok oo 
real, intent(in) :: array 1 (imjm) 

real, intent(in) :: array2(imjm) 

imteger, intent(in) :: arr_size 

character(32), intent(in) :: geomname 

real 2 sta 


| 28 2 eo oe ok 2 oe ee ae ak ake 2 oe 9 og Eo ake 2g Ee fe fe 2 2 a af ak af ake EE a a ake ok ok ae ake oe 2c ok ok ak ae fe a ae ak ok ake ok 


'local var 

9 Fe oe 2 fe 2 ie oe ee 2 ie fe 2 2 fe oe 2 Ae ae ee 2 Ae 2 ee 2 2 2 ee 2 ae 2 a a a A oO KK oO OE 
integer ::1 

real :: xmap_factor(imjm), ymap_factor(imjm) 

real :: sum, dif, sumx, difx 

real <: pl, a_Square 


pi = 2.0 * asin(1.0) 
a_square = (6.375e+06) ** 2 


sum = 0 
an = 

difx = 0. 
sumx = 0. 


if (geomname(1:4) /="NONE’) then 
CALL FIND_MAP_FACTOR(geomname, xmap_factor, ymap_factor) 
do i= 1, arr_size 
dif = (arrayl (i) - array2(i)) 


Z * xmap_factor(1) * ymap_factor(1) 
difx = (array1(1) - array2(i))**2 
Z * xmap_factor(i) * ymap_factor(1) 


sum = sum + dif 
sumx = sumx + difx 
end do 
std = sqrt(sumx / 4*pi*a_square - (sum / (4*pi*a_square))**2) 
else 


do 1= 1, arr_size 
dif = arrayl(i) - array2() 
sum = sum + dif 
difx = (array! (1) - array2(4))**2 
sumx = sumx + difx 
end do 
std = sqrt(sumx/arr_size - (sum/arr_size)**2) 
end if 


return 
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END SUBROUTINE COMPUTE_STD 


C. GRAPHICS 


i, Plot_data.pro 


pro plot_data 


ORR a a a or ak ok ak ak ak ak ok ok ok ok 2 2 26 26 3 ok ok ok ok ok 2k ak oko 9 a a a 2k 2k ok oo 2 2 2 2 oF 
> 


; setup color chart 

Paced ictdiaba die dilated iilaaieeeiaaaiaaala ee e 
COMMON colors, r_orig, g orig, b_orig, r_curr, g curr, b curr 

maxcol = !|D.N_ COLORS 

r_curr = bindgen(maxcol) 

g cur =r_curr 

b cuir=r_cwr 


z wht, grn, ery,wht,tur,blu,ylw,pur,blk red 

r curr = (255, 0,211,255, 0, 0,255, 55, 0,255) 
g curr = [255,100,211,255,200, 0,255, 0, 0, 0] 
beeum — (25900-2111, 255.230.2559, 0,55, 0, 0) 


STTrCTrrTttt tT Tt tt tt ttt TTT TTT TTT TTT tT SLT TT LL e Ss see se se ee 
? 


; to graph on the screen, must have the DISPLAY env set 
OO RO GG GG Rk kak kak ak ak ok 2 a a 


;TVLCT, r_curr, g_curr, b_ curr 


sIntegers 
nColors = 0 
nHeader = 0 
nRecords = 0 
nmatch = 0 
festPer = 0 


‘floats 

sng = 0.0 

levell = 0.0 
minrange = 0.0 
maxrange = 0.0 


sstrings 
filename = " 
str =" 
strFormat = " 
strHeader =" 
strLegend =" 
param = t 
obType =" 
geomName = " 
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modelName =" 
name =" 
yname =" 


,structures 

datLine = {dat, v_dtg:'', nobs:0, parm:'', units:'', $ 
geom:' '" typlvl:'', lvi_1:0.0, tau:0, $ 
typstat:' ', stat_val:0.0, v_src:'', obs_type:''} 


strFmt = '(al0, 2x, 15, a20, al5, a30, al5, f8.2, 15, al5, 8.2, al0, a25)' 


eT TTS TEST TSS TTSSCSCSS SSCS OCCCCCCCOCT OCLC TS Sees TS SS SS 
? 


; get the env vars and data filename 

ea Se eS ee Ee Tee ee 
param = GETENV(PARM_NAME'’) 

levell = GETENV(CLVL_1') 

fcstPer = GETENVCFCSTPER’) 

obType = GETENV('OBSTYPE') 

geomName = GETENV('GEOM_NAME') 

modelName = GETEN V(MODEL'’) 

filename = GETENV(FILENAME') 


; determine the number of records in the data file 
data=READ ASCII(fileName, count=nRecords) 
print, "record count = ", nRecords 


sarray declarations 

fields = replicate(datLine, nRecords) 

bias = replicate(datLine, nRecords) 

std = replicate(datLine, nRecords) 

rms = replicate(datLine, nRecords) 

std1 = FLTARR(nRecords) 

std2 = FLTARR(nRecords) 

sttDTG = STRARR(nRecords) 

lonDTG = FLTARR(nRecords, /NOZERO) 
numObs = INTARR(nRecords) 


openr, 10, filename 


for n=0, nRecords-1 do begin 
READF, 10, datLine, FORMAT=strFmt 
fields[n] = datLine 

endfor 


close, 10 


fields = fields(SORT (fields[*].v_dtg)) 


«RRR RK RK KK RR KEKE K EK KEK KEKE KKK EKER KEK KK KKKEKKAKHKKK KKK 
? 


, get the sub arrays 
KK KKKEKK KKK KKK KEKE KKK KKK KEK EKKKAKAKKKKKKKKAKKEKKKKKKKKKAAKE 
? 


bias = fields[ WHERE((STRTRIM(fields[*].parm) EQ param) and $ 
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(fields[*].lvl_1 EQ levell) and $ 
(STRTRIM(fields[*].geom) EQ geomName) and $ 
(fields[*].tau EQ festPer) and $ 
(STRTRIM(fields[*].obs_type) EQ obType) and $ 
(STRTRIM(fields[*].typstat) EQ 'bias'), nmatch)] 
start_date = JULDAY(STRMID(bias[0].v_dtg,4,2), $ 
STRMID (bias[0].v_dtg,6,2), $ 
STRMID (bias[0].v_dtg,0,4)) 
end_date = JULDAY(STRMID(bias[nmatch-1].v_dtg,4,2), $ 
STRMID(bias[nmatch-1].v_dtg,6,2), $ 
STRMID (bias[nmatch-1].v_dtg,0,4)) 
start_time = FIX(STRMID(bias[0].v_dtg,8,2)) / 24. 
end_time = (end_date - start_date) $ 
+ FLOAT(STRMID (bias[nmatch-1].v_dtg,8,2))) / 24. 


for n=0, nmatch-1 do begin 
end_datel = JULDAY(STRMID(bias[n].v_dtg,4,2), $ 
STRMID(bias[n].v_dtg,6,2), $ 
STRMID (bias[n].v_dtg,0,4)) 
end_time] =(end_datel - start_date) $ 
+ (FLOAT(STRMID(bias[n].v_dtg,8,2))) / 24. 
lonDTG{[n] = (end_timel - start_time) + start_time 
numObs[n] = bias[n].nobs 
endfor 


std = fields| WHERE((STRTRIM(fields[*].parm) EQ param) and $ 
(fields[*].lvl_1 EQ levell) and $ 
(STRTRIM(fields[*].geom) EQ geomName) and $ 
(fields[*].tau EQ fcestPer) and $ 
(STRTRIM(fields[*].obs_type) EQ obType) and $ 
(STRTRIM(fields[*].typstat) EQ 'std'), nmatch)] 

rms = fieldss WHERE((STRTRIM(fields[*].parm) EQ param) and $ 
(fields[*].lvl_ 1 EQ level1) and $ 
(STRTRIM(fields[*].geom) EQ geomName) and $ 
(fields[*].tau EQ fcstPer) and $ 
(STRTRIM(fields[*].obs_type) EQ obType) and $ 
(STRTRIM(fields[* ].typstat) EQ 'rms'), nmatch)] 


for n=0, nmatch-1 do begin 
std1[n] = bias[n].stat_val + std[n].stat_val 
std2[n] = bias[n].stat_val - std[n].stat_val 
endfor 


dummy = LABEL_DATE(DATE_ FORMAT ='%HZ %D%M %Z', offset=start_ date) 
1 = nmatch - | 


°K 2K 2k 2 2 2k 26 2k 2k 2k 2k 2k 2k 2k 2k 2 2k 2k oi 2k 2 2k 2k oie 2 2K 2k 2 ie 2k 2K 2k 2k 2k 2 2k ake 2k 2 ie 2k oie 2k 2k 2k 2k 2k 2k 2k 2K 2k 2k 2k 2 
3 


; plot the data 


© 2K 2k 2k 2k 2k 2 2k 2k 2k 2k 2k 2k 2k 2k 2k 2k 2k 2k 2k 2K 2k 2k ok 2k 2k 2k 2k 2k 2k 2k 2 i 2k 2k 2k 2k i 2k 2k 2k 2 2k 2k 2K 2k oe 2k 2k 2 2 2k 2 2k 
3 

, title string 

IAI I CICICR RRC I IE OR EI OR RK 2K a 2k a a 2k ak 2 a 
3 
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if STRTRIM(bias([0].typlvl) EQ ‘isbr_Ivl' then $ 
name = modelName +','+ geomName +','+ param +'!C'$ 
+ STRTRIM(STRING(bias[0].Ivl_1)) $ 
+ 'mb, '+ STRTRIM(STRING(festPer)) +' hrs,'+ obType $ 
else $ 
name = modelName +','+ geomName +','+ param +'!C'$ 
+ STRTRIM(STRING(bias[0].Ivl_1)) $ 
+'m,'+ STRTRIM(STRING(festPer)) +' hrs, '+ obType 


yname = bias[i].units ; y-axis title string 

minrange = MIN(bias[0:1].stat_val) 

if (MIN(std2[0:1]) LT minrange) then $ 
minrange = MIN(std2[0:1]) 

if (MIN(rms[0:i].stat_val) LT minrange) then $ 
minrange = MIN(rms[0:1].stat_val) 

maxrange = MAX(bias[0:1].stat_val) 

if (MAX(std1[0:1]) GT maxrange) then $ 
maxrange = MAX(std] [0:1]) 

if (MAX(rms[0:1].stat_val) GT maxrange) then $ 
maxrange = MAX(rms[0:1].stat_val) 


Oe 3g ie oe Ek oe 2 oe ie oe 2 ok oe 2 oe 2 oe Eo KK EE EE OK OK OK EK EK EK KK KK KK KK KKK 
? 


; for debugging 

ee eee ee eee EES EES eS TST TELE TAT eS TEATS 
sprint, "std" 

sprint, std[0:1].stat_ val 

;print, "rms" 

sprint, rms[0:i].stat_val 

;print, "graph range lies between ", minrange, " and ", maxrange 
sprint, “lonDtg" 

sprint, lonDTG[0:1] 

sprint, "bias" 

spnint, bias[0:1] 

spnint, "std1" 

sprint, std [0:1] 

sprint, "std2" 

sprint, std2[0:1] 


!X.MINOR=-1 — ;suppress minor tick marks 
!'Y MARGIN(1)=3 ;top margin 


© He oie 2 oe a 2 ie EK RE KK KKK KK KEK KKK KKK KKK KK KKK KKK KKKKKK 
? 


, to create a post script file 
KEKKKKK KEKE KKK KKK KEK KKK KEAKKKEKAKKHKKAKKKKKKK 
? 


;set_plot, 'PS' 
‘psfile = filename + ‘.ps' 
device, /color, filename=psfile 


«feo ok ok 2 9 oe of ke 22 2 2 coke a ok oo a Ca oi oo a IC oe oc a a ok ok os ak a ok ake 2 a ofc ok 2k oe ak ok ak ok 
3? 


; to create a gif file 
0 KKK KKK EEK KEE EEK KKK EKER EEK KKK KKKKEAKE 
3 


set_plot, 'Z’ 
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pshile = filename + ' gif 


PLOT, lonDTG[0:1], bias[0:1].stat_val, $ 
YRANGE = [minrange, maxrange], $ 
TITLE = name, PSYM = -2, SYMSIZE = 1., $ 
XTITLE = Forecast Date’, $ 
YTITLE = yname, $ 
XGRIDSTYLE = 1, YGRIDSTYLE =1,$ 
XTICKLEN = 1.0, YTICKLEN = 1.0, $ 
XTICKFORMAT = "label_date", $ 
XCHARSIZE = 0.7, $ 
MAX _ VALUE = 30, $ 
COLOR = 5, XSTYLE = 2, DEVICE, /NODATA 


for n=1,1 do begin 
POLYFILL, [lonDTG(n-1), lonDTG[n-1:n], lonDTG(n)], $ 
[bias[n-1].stat_val, std] [n-1:n], bias[n].stat_val], COLOR=2 
endfor 


for n=1,1 do begin 
POLYFILL, [lonDTG(n-1), lonDTG[n-1:n], lonDTG(n)], $ 
[bias[n-1 ].stat_val, std2[n-1:n], bias[n].stat_ val], COLOR=2 
endfor 


; overplot the bias 
OPLOT, lonDTG[0:1], bias(0:1].stat_val, PSYM = -2, SYMSIZE = 1., $ 
LINE = 0, COLOR = 5, MAX_VALUE = 30 


; overplot the std] 
OPLOT, lonDTG[0:1], std1 [0:1], PSYM = -6, SYMSIZE = 1., $ 
LINE = 0, COLOR = 9, MAX_ VALUE = 30 


; overplot the std2 
OPLOT, lonDTG[0:1], std2[0:1], PSYM = -6, SYMSIZE = 1., $ 
LINE = 0, COLOR = 9, MAX_VALUE = 30 


; overplot the mms 

OPLOT, lonDTG[0:1], rms[0:1].stat_val, PS YM = -4, SYMSIZE = 1., $ 
LINE = 0, COLOR = 7, MAX_VALUE = 30 

,; add the legends 

XYOUTS, 0.8, 0.16, '!5* - bias', color = 5, /NORMAL ; legend 

XYOUTS, 0.8, 0.13, "IMB - std', color = 9, /NORMAL ;legend 

XYOUTS, 0.8, 0.1, 'IMV - mns’, color = 7, /NORMAL ;legend 


image = TVRDOQ 
WRITE_GIF, psfile, image 


;DEVICE, /close_file 
SEq PLO x 


END 
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D. USER INTERFACE 


1. Index. html 


<html> 

<}.. 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mverf/index.html 
a 


<head><ttle>FNMOC Model Statistics Display </title></head> 
<body bgcolor="#191970" TEXT="#FSFSDC" LINK="#00FF7F" 
VLINK="#CCCC66" ALINK="#FFO000"> 

<FONT SIZE=+1> 


<hl><center>Pick a model to see the statistics.</center></h1> 

<UL> 
<A HREF="nogaps.html"> NOGAPS</A></P> 
<A HREF="noraps_asia.html">NORAPS_ ASIA</A></P> 
<A HREF="noraps_conus.html">NORAPS_CONUS</A></P> 
<A HREF="noraps_europe.html">NORAPS EUROPE</A></P> 
<A HREF="noraps_ind_ocn.html">NORAPS_IND_OCN</A></P> 
<A HREF="coamps_europe.html">COAMPS EUROPE</A></P> 
<A HREF="coamps_swasia.html">COAMPS SOUTHWEST_ASIA</A></P> 
<A HREF="wam.html]">WAM_GLOBAL</A></P> 

</UL> 


<HR> 

<CENTER><FONT size="-1"><I> Send Comments Or Suggestions To 
Susie Pace: <A HREF="mailto:pacek@fnmoc.navy.mi]"> 
pacek@fnmoc.navy.mil</A> 

<BR> Last Update Was On March 25, 1998 </I></FONT></CENTER> 


</BOD Y> 
</HTML> 


De Nogaps.html 


<html> 

eee 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mverif/nogaps. html 
ee 


<head><title>NOGAPS Verification Display </title></head> 
<body bgcolor="#191970" TEXT="#00ff7f" LINK="#00FF7F" VLINK="#CCCC66" 
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ALINK="#FF0000"> 
<form method=GET action="http://devul/cgi-bin/space3.pl"> 


<h1><center>Make your selections to see the statistics.</center></h1> 


<h3>Model:</h3> 
<input type=radio name=model value="nogaps" checked>nogaps 


<h3>Geometry:</h3> 

<input type=radio name=geometry value="global_360x181" checked>global_ 360x181 

<input type=radio name=geometry value="asia_nest]_appl"> asia_nest]_appl 

<input type=radio name=geometry value="conus_nest]_appl"> conus_nest]_appl 

<input type=radio name=geometry value="europe_nest!_appl">europe_nest!_appl 

<input type=radio name=geometry value="europe_nest2_appl2"> europe_nest2_appl2 

<input type=radio name=geometry value="europe_nest3_appl3">europe_nest3_appl3 

<input type=radio name=geometry value="ind_ocn_nest]_appl">ind_ocn_nest!_appl 

<!--<input type=radio name=geometry value="southwest_asia_nest2_appl">southwest_asia_nest2_appl 
<input type=radio name=geometry value="southwest_asia_nest3_appl">southwest_asia_nest3_ appl 
> 


<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 
<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 
<input type=radio name=tau value="12"> 12 
<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 
<input type=radio name=tau value="48"> 48 
<input type=radio name=tau value="60"> 60 
<input type=radio name=tau value="72"> 72 
<input type=radio name=tau value="84"> 84 
<input type=radio name=tau value="96"> 96 
<input type=radio name=tau value="108"> 108 
<input type=radio name=tau value="120"> 120 
<input type=radio name=tau value="132"> 132 
<input type=radio name=tau value="144"> 144 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">400 
<input type=radio name=level value="300">300 


167 


<input type=radio name=level value="250">-250 
<imput type=radio name=level value="200">200 
<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
2 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="raob_qc" checked>raob_ qc 
<iput type=radio name=obstype value="sfc_Ind">sfc_Ind 
<input type=radio name=obstype value="sfc_ship_met_qc">sfc_ship met_qc 


<h3>Graph Type:</h3> 
<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 
<input type=radio name=graph value="time series" checked>time_series 


<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 
<input type=text name=beginning maxlength=10 value="1998032512"> 
<input type=text name=ending maxlength=10 value="1998040500"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 
</body> 
</html> 


3. Noraps_asia.html 


<html> 

= 

Author: Susie Pace 

Date: 07 November, 1997 

File URL: model_reports/mverif/foraps_asia.html 
— 


<head><title>NORAPS_ ASIA Verification Display </title></head> 

<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FFO000"> 

<form method=GET action="http://devul/cgi-bin/space3.pl"> 


<hl><center>Make your selections to see the statistics.</center></h1> 
<h3>Model:</h3> 

<input type=radio name=model value="noraps_asia" checked>noraps_asia 
<h3>Geometry:</h3> 

<input type=radio name=geometry value="asia_nest] appl" checked> asia_nestl_appl 
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<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 

<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 

<input type=radio name=tau value="12"> 12 

<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 

<input type=radio name=tau value="48"> 48 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">400 
<input type=radio name=level value="300">300 
<input type=radio name=level value="250">250 
<input type=radio name=level value="200">200 
<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
Stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
--> 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="raob_qc" checked>raob_ qc 
<input type=radio name=obstype value="sfc_Ind">sfc_Ind 
<input type=radio name=obstype value="sfc_ship_met_qc">sfc_ship_met_qc 


<h3>Graph Type:</h3> 

<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 
<input type=radio name=graph value="time series" checked>time_series 
<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 


<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 
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4. Noraps_conus.html 


<html> 

<!.. 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mverif/noraps_conus.html 
a= 


<head><title>NORAPS_ CONUS Venification Display </title></head> 


<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FFO000"> 
<form method=GET action="http://devu l/cgi-bin/space3.pl"> 


<h1><center>Make your selections to see the statistics.</center></h1> 
<h3>Model: </h3> 
<input type=radio name=model value="noraps_conus" checked> noraps_conus 


<h3>Geometry:</h3> 
<input type=radio name=geometry value="conus_nest]_appl" checked> conus _nestl_appl 


<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 
<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 

<input type=radio name=tau value="12"> 12 

<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 

<input type=radio name=tau value="48"> 48 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">4.00 
<input type=radio name=level value="300">300 
<input type=radio name=level value="250">250 
<input type=radio name=level value="200">200 


70 


<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
Pon 

<h3>QObs types:</h3> 


<input type=radio name=obstype value="raob_qc" checked>raob_ qc 
<input type=radio name=obstype value="sfc_Ind">sfc_Ind 
<input type=radio name=obstype value="sfc_ship_met_gqc">sfc_ship met_qce 


<h3>Graph Type:</h3> 
<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 
<input type=radio name=graph value="time series" checked>time_series 


<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 
<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 
</body> 
</html> 


5; Noraps_europe.html 


<html> 

fee 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mvenf/noraps_europe.html 
oS 


<head><titk>NORAPS_ EUROPE Verification Display </title></head> 

<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FF0000"> 

<form method=GET action="http://devu1/cgi-bin/space3.pl"> 


<h1><center>Make your selections to see the statistics.</center></h1> 


<h3>Model: </h3> 
<input type=radio name=model value="noraps_europe" checked> noraps_europe 


<h3>Geometry:</h3> 
<input type=radio name=geometry value="europe_nestl_appl" checked>europe_nestl_appl 


17] 


<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 

<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 

<input type=radio name=tau value="12"> 12 

<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 

<input type=radio name=tau value="48"> 48 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">400 
<input type=radio name=level value="300">300 
<input type=radio name=level value="250">250 
<input type=radio name=level value="200">200 
<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
ee 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="raob_qc" checked>raob_qce 
<input type=radio name=obstype value="sfc_Ind">sfc_Ind 
<input type=radio name=obstype value="sfc_ship_met_qce">sfe_ship_met_qc 


<h3>Graph Type:</h3> 
<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 


<input type=radio name=graph value="time series" checked>time_series 


<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 
<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 


ges 


</body> 
</html> 


6. Noraps_ ind ocn.html 


<html> 

eae 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mverif/noraps_ind_ocn.html 


--> 


<head><title>NORAPS IND_OCN Verification Display </title></head> 

<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FF0000"> 

<form method=GET action="http://devu1/cgi-bin/space3.pl"> 


<h1><center>Make your selections to see the statistics.</center></h|1> 


<h3>Model: </h3> 
<input type=radio name=model value="noraps_ind_ocn" checked>noraps_ind_ocn 


<h3>Geometry:</h3> 
<input type=radio name=geometry value="ind_ocn_nest]_appl" checked> 
ind_ocn_nestl_appl 


<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 
<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 

<input type=radio name=tau value="12"> 12 

<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 

<input type=radio name=tau value="48"> 48 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">400 
<input type=radio name=level value="300">300 
<input type=radio name=level value="250">250 


yg 


<input type=radio name=level value="200">200 
<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
as 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="raob_qc" checked>raob_ qc 
<input type=radio name=obstype value="sfc_Ind">sfc_Ind 
<input type=radio name=obstype value="sfc_ship_met_qc">sfc_ship met_qc 


<h3>Graph Type:</h3> 
<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 
<input type=radio name=graph value="time senes" checked>time_series 


<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 
<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 


</body> 
</html> 


Te Coamps_europe.html 


<html> 

<!-- 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mverif/coamps_europe.html 


--> 


<head><titl>COAMPS EUROPE Verification Display </title></head> 

<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FF0000"> 

<form method=GET action="http://devu1/cgi-bin/space3.pl"> 


<h1><center>Make your selections to see the statistics.</center></h1> 


<h3>Model: </h3> 
<input type=radio name=model value="coamps_ europe" checked> coamps_europe 


<h3>Geometry:</h3> 
<input type=radio name=geometry value="europe_nest2_appl2" checked> 
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europe _nest2_appl2 
<input type=radio name=geometry value="europe_nest3_appl3">europe_nest3_app]3 


<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 

<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 

<input type=radio name=tau value="12"> 12 

<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 

<input type=radio name=tau value="48"> 48 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">400 
<input type=radio name=level value="300">300 
<input type=radio name=level value="250">250 
<input type=radio name=level value="200">200 
<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
i> 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="raob_qc" checked>raob_ qc 
<input type=radio name=obstype value="sfe_Ind">sfc_Ind 
<input type=radio name=obstype value="sfc_ship_met_qc">sfc_ship_met_qc 


<h3>Graph Type:</h3> 

<!--<jnput type=radio name=graph value="scatter plot">scatter_plot--> 
<input type=radio name=graph value="time series" checked>time_ series 
<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 


<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 


ie 


<input type=reset value="Cancel"> 


</form> 
</body> 
</htm!> 


8. Coamps_southwest_asia.html 


<html> 

<!.. 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mverif/coamps_swasia.html 


-—> 


<head><title>COAMPS SOUTHWEST_ASIA Verification Display </title></head> 
<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FF0000"> 

<form method=GET action="http://devu 1/cgi-bin/space3.pl"> 


<h1><center>Make your selections to see the statistics.</center></h1> 


<h3>Model: </h3> 
<input type=radio name=model value="coamps_sw_asia" checked> 
coamps_southwest_asia 


<h3>Geometry:</h3> 

<input type=radio name=geometry value="southwest_asia_nest2_appl" checked> 
southwest_asia_nest2_appl 

<input type=radio name=geometry value="southwest_asia_nest3_appl"> 
southwest_asia_nest3_appl 


<h3>Parameters:</h3> 

<input type=radio name=parameter value="air_temp"> air_temp 
<input type=radio name=parameter value="geop_ht" checked> geop_ht 
<input type=radio name=parameter value="pres"> pres 

<input type=radio name=parameter value="wnd_spd"> wnd_spd 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 

<input type=radio name=tau value="12"> 12 

<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 

<input type=radio name=tau value="48"> 48 


<h3>Levels: </h3> 

<input type=radio name=level value="0">0 

<input type=radio name=level value="2">2 

<input type=radio name=level value="19.5">19.5 
<input type=radio name=level value="1000">1000 
<input type=radio name=level value="925">925 
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<input type=radio name=level value="850">850 
<input type=radio name=level value="700">700 
<input type=radio name=level value="500" checked>500 
<input type=radio name=level value="400">400 
<input type=radio name=level value="300">300 
<input type=radio name=level value="250">250 
<input type=radio name=level value="200">200 
<input type=radio name=level value="150">150 
<input type=radio name=level value="100">100 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev"> 
rms: <input type=checkbox name="rms"> 
= 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="raob_qce" checked>raob_qce 
<input type=radio name=obstype value="sfc_Ind">sfc_Ind 
<input type=radio name=obstype value="sfe_ship_met_qc">sfc_ship_met_qc 


<h3>Graph Type:</h3> 
<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 
<input type=radio name=graph value="time series" checked>time_series 


<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 
<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 
</body> 
</html> 


3h Wam_Global.html 


<html> 

alee 

Author: Susie Pace 

Date: 25 March 1998 

File URL: model_reports/mvenf/wam.html 


--> 


<head><titlk>WAM_ GLOBAL Venification Display </title></head> 

<body bgcolor="#191970" TEXT="#00FF7F" LINK="#00FF7F" VLINK="#CCCC66" 
ALINK="#FFOO00"> 

<form method=GET action="http://devu 1/cgi-bin/space3.pl"> 


<h]><center>Make your selections to see the statistics.</center></h 1> 


HIG 


<h3>Model: </h3> 
<input type=radio name=model value="Wwam_ global" checked> wam_ global 


<h3>Geometry:</h3> 
<input type=radio name=geometry value="global_ 360x181" checked> 
global_360x181 


<h3>Parameters:</h3> 
<input type=radio name=parameter value="sig_wav_ht" checked> sig _wav_ht 
<input type=radio name=parameter value="peak_wav_per"> peak_wav_per 


<h3>Taus:</h3> 

<input type=radio name=tau value="0"> 0 
<input type=radio name=tau value="12"> 12 
<input type=radio name=tau value="24" checked> 24 
<input type=radio name=tau value="36"> 36 
<input type=radio name=tau value="48"> 48 
<input type=radio name=tau value="60"> 60 
<input type=radio name=tau value="72"> 72 
<input type=radio name=tau value="84"> 84 
<input type=radio name=tau value="96"> 96 
<input type=radio name=tau value="108"> 108 
<input type=radio name=tau value="120"> 120 


<h3>Levels: </h3> 
<input type=radio name=level value="0" checked>0 


<!--<h3>Statistics:</H3> 


bias: <input type=checkbox name="bias"> 
stdev: <input type=checkbox name="stdev'> 
rms: <input type=checkbox name="rms"> 
= 

<h3>Obs types:</h3> 


<input type=radio name=obstype value="sfc_ship" checked>sfc_ ship 
<!--<input type=radio name=obstype value="alty">alty--> 


<h3>Graph Type:</h3> 
<!--<input type=radio name=graph value="scatter plot">scatter_plot--> 
<iput type=radio name=graph value="time series" checked>time_series 


<h3>Period: Enter the beginning and ending DTG: e.g., 1998031812</h3> 
<input type=text name=beginning maxlength=10 value="1998031812"> 
<input type=text name=ending maxlength=10 value="1998033012"> 


<input type=submit> 
<input type=reset value="Cancel"> 


</form> 


</body> 
</html> 
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10. Procform.pl 


#!/usr/local/bin/per! 
# space3.pl - Try to batch in runjob to retreive the data 
# and run the IDL programs to create the graphs 


#Use the form library 
require "space2.p1"; 


HHH STEP 1: Get and decode the input from the form ###4H###HHH#H 


#get the data from the form 
&ReadParse(*input); 


THHAHHHAHYH STEP 2: Process the information from the form #########4#4 


$procid = $$; 
‘export procid’ ; 


#split $query_string into name=value pairs 
local(*FormData) = @_ if @_; #make an alias for the arg 
$query_string=$ENV{'QUERY_STRING’}}; 


foreach $name_value (split(’&', Squery_string)) { 


#translate any plus signs in the pair string into spaces: 
$name_value =~ tr/+/ /; 


#split the name=value pair into a separate name and value: 
($name, $value) = split (‘=', $name_value); 


#translate escaped hex numbers back to 8-bit char: 
$name =~ s/%(..)/pack("C", hex($1))/eg; 
$value =~ s/%(..)/pack("C", hex($1))/eg; 


#convert the names and values into named, assigned var; 
if (defined($FormData{$name})) { 

$FormData{ $name} .= "\O$value"; 
+ else { 

$FormData{ $name} = $value; 


} 


if ($name eq 'model’) { 
$model = $value; 
‘export model’; 

#exit O if (Smodel eq ") 


} elsif ($name eq 'geometry’) { 
$geometry = $value; 

‘export geometry ; 

#exit 0 if (Sgeometry eq ") 


WAS, 


} elsif ($name eq ‘parameter') { 
$parameter = $value; 

“export parameter’ ; 

#exit O if (S$parameter eq ") 


} elsif (Sname eq 'tau’) { 
$tau = $value; 

“export tau’; 

#exit O if (Stau eq ") 


} elsif (Sname eq ‘level’) { 
$level = $value; 

‘export level’; 

#exit O if ($level eq ") 


} elsif (Sname eq 'stats') { 
$stats = $value; 
# export stats’ ; 


} elsif (Sname eq 'obstype’) { 
Sobstype = $value; 

‘export obstype’ ; 

#exit 0 if (Sobstype eq ") 


} elsif ($name eq 'graph’) { 
$graph = $value; 

‘export graph’; 

#exit O if ($graph eq ") 


} elsif (Sname eq 'beginning’) { 
$beginning = $value; 

“export beginning’ ; 

#exit 0 if (Sbeginning eq ") 


} elsif ($name eq ending’) { 
$ending = $value; 

‘export ending’; 

#exit O if (Sending eq ") 


} else { 
print "no matching env var"; 


j 
j 


#process the request by minjob 

‘/a/fops/bin/runjob -h div60-3 -u pacek -t sun -d /home/pubs43/tmp -j get_dataksh -e "pid=$procid 
MODEL=$model BDTG=$Sbeginning EDTG=$ending PARM NAME=$parameter LVL_1=$level 
FCSTPER=$tau OBST YPE=$Sobstype GEOM_NAME=$Sgeometry” > $procid.out 2>&1"; 


HAHA STEP 3: Reply by outputting 2 new document ##H#HHAHHH 
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#$Image = "http://152.80.13.201/~pacek/gif/$procid. gif"; 
$Image = "/home/pubs43/tmp/$procid. gif"; 


# 
# Output the MIME-type header, followed by two newlines: 
print "Content-type: image/gif\n\n"; 
ca 
# loop until the gif file is transferred to the web server 
# when the gif file arrives, display on the web browser 
# 
while (! (-e $Image)) { 
sleep 5; 
} 


open (IMAGE, $Image); 
print <IMAGE>; 
close (IMAGE); 


‘rm $Image’; 


#print "<HTML><HEAD><TITLE> Model Verification Reply </TITLE></HEAD>\n"; 
#print "</BOD Y></HTML>\n"; 
# 


#Trying to handle the timed out error 


#if (-e $Image) { 

# print "Content-type: image/gif\n\n"; 

# open (IMAGE, $Image); 

# print <IMAGE>; 

# close (IMAGE); 

#this causes the runjob to be batched in multiple time and PID change, 

#end up in an infinite loop 

#} else { 

print "refresh: 10; \n"; 

print "Content-type: text/html\n\n"; 

pnnt "<HTML><HEAD><TITLE>Model Statistics Display</TITLE></HEAD>\n"; 
pnnt "<BODY BGCOLOR=NAVY TEXT=WHITE>"; 

print "<H1><CENTER>Please be patient, the image is being created</CENTER></H1>\n"; 
print "Processing 1s done when a graph 1s displayed\n"; 


th 


th Fh Fh th Ah Ah 


} 
THEA END OF space3.pl fH 
11. Get_data.ksh 

#!/bin/sh 


/oin/ksh <<"EOT' 
. fafopshsis/db_init/isis_init_ofs.ksh 
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#sSet -X 

cd /d/tmp 

export DB_DIR=/d/model-stats/ 
cd $DB_DIR 


export FILENAME=$pid 
export TMPFN=$pid"tmp" 
SLASH=_ 


if [| SMODEL = nogaps ]] 

then 
MODEL="$MODELS$SLASH$GEOM_NAME" 

fi 


print $MODEL $GEOM_NAME $FCSTPER $PARM_NAME $OBSTYPE $LVL_1 $BDTG $EDTG 


empcmd $DB_DIR/stat_db ‘select bypass_lock verif_date,sample_size,parm_name, 
unit_name,geom_name,lvl_type,level_1 convert to decimal(8,2), 

tau,stat_type,stat_value convert to decimal(8,2),vernf_source, 

obs_type from S$MODEL where verif_date range $BDTG to SEDTG and 
parm_name="$PARM_NAME" and geom_name="$GEOM_NAME" and tau="$FCSTPER" 
and obs_type="S$OBSTYPE" and level_1="$LVL_1" into "STMPFN";' 


awk ‘/*[0-97/ \ 
{printf ("%-12s%-5d%-20s%-15s%-30s%-15s%-8.2f%-5d%-1 5s%-8.2f%-10s%-25s\n", \ 
$1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$1 1,$12)}' STMPEN > $FILENAME 


#print "sourcing the IDL setup script" 
. Mpfidl/idl_S/oin/idl_setup.ksh 


#print S$PARM_ NAME $LVL_1 $FCSTPER SOBSTYPE $GEQM_NAME 
idl -rt=plot_data 


if [[ -f SFILENAME gif }] 
then 

ftpbatch -h devu] -s "cd /home/pubs43/tmp/; put SFILENAME. gif" 
fi 


rm $pid* 
exit 0 


EOT 
exit 0 
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APPENDIX C 


A. STATTEST.F90 


program stattest 


c 

Seca START ERO OG Ue ...c-cc-cstetdicuss.. 

€ 

C SCCS IDENTIFICATION: @(#)stattest.f90 1.1 04/24/98 
c 


C CONFIGURATION IDENTIFICATION: NONE 

C 

C MODULE NAME: stattest 

C 

C DESCRIPTION: Program to test the stat lib 

c 

GyCOPYRIGHT: (c) 1998 FLENUMMETOCCEN 
U.S. GOVERNMENT DOMAIN 

ALL RIGHTS RESERVED 


CONTRACT NUMBER AND TITLE: N/A 
REFERENCES: NONE 
CLASSIFICATION: Unclassified 


STRICTIONS: NONE 


& 


COMPUTER/OPERATING SYSTEM 
DEPENDENCIES: Cray UNICOS 


LIBRARIES OF RESIDENCE: /a/ops/bin 


USAGE: 
Stattest 


PARAMETERS: 
Name Type Usage Descnption 


OO Oa Oe © Gre GO eG a2 OG 0 O*® 


C COMMON BLOCKS: N/A 
o 

C FILES: N/A 

c 

C DATA BASES: N/A 
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C 
C COMPILER DEPENDENCIES: f90 


C 

C COMPILE OPTIONS: -f fixed -c 

C 

C MAKEFILE: Located at /a/ops/app/mverif/test/maketest 
c UNICOS make 

C 

C RECORD OF CHANGES: 

c 


C <<CHANGE NOTICE>> Version 1.1 (29 Apr 1998) -- Kyongsuk Pace 
C Initial submission 


implicit none 


integer :: size 
parameter(size=10) 


real :: stat 

real :: arrl (size) 

real :: arr2(size) 

character(4) :: geom 

geom(1:4) = 'NONE' 

amr2 = (/288.6, 304.8, 301.4, 293.2, 293.2, 
2 297.6, 295.8, 291.0, 285.2, 287.8/ 

arr! = (/289.29, 302.26, 302.14, 294.92, 294.92, 
2 296.25, 295.37, 292.32, 285.15, 288.69/) 


CALL COMPUTE_BIAS(arrl,arr2,size,geom,stat) 
write (0, ‘(bias = ", f8.2)') stat 


CALL COMPUTE _STD(arrl ,arr2,size,geom,stat) 
write (0, ‘("std =", £8.2)') stat 


CALL COMPUTE_RM*S(arrl,arr2,size,geom,stat) 
write (0, '("rms =", £8.2)') stat 


stop ‘Normal End’ 
end 


B. STATISTICS BY STATISTICS LIBRARY SUBROUTINES 


Script started on Wed Feb 11 17:21:26 1998 
[/dev/ttyp0 17] 
s{j91}/home/pacek/mvenif/test>tstattest 
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bias= 0.27 


std= 1.31 
trms= 1.34 
STOP Normal End 


STOP executed at line 28 in Fortran routine 'STATTEST' 

CPU: 0.010s, Wallclock: 0.01lis, 10.6% of 8-CPU Machine 

Memory HWM: 1595052, Stack HWM: 803866, Stack segment expansions: 0 
{)91 }/home/pacek/mvenifftest 

Script fimshed on Wed Feb 11 17:21:34 1998 


Cc; STATISTICS BY MICROSOFT EXCEL 


array 1 array 2 diff diff sqr 


288.6 289.29 -0.69 0.4761 

304.8 302.26 2.54 6.4516 

301.4 302.14 -0.74 0.5476 

293.2 294.92 -1.72 2.9584 

293.2 294.92 -1.72 2.9584 

297.6 296.25 P35 168225 

295.8 295.37 0.43 0.1849 

291 292.32 -1.32 1.7424 

255.2 Zeol5 0.05 0.0025 

287.8 288.69 -0.89 0.7921 

sum -2.71 17.9365 

bias -0.27] sum/count 

count 10 

stdev S115 sqrt(sum of diff sqr/count - bias*bias) 
rms 1.3392 sqrt(sum of diff sqr/count) 
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